(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    610508,      11364]
NotebookOptionsPosition[    606458,      11292]
NotebookOutlinePosition[    607124,      11314]
CellTagsIndexPosition[    607081,      11311]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 StyleBox["Replication code on Wolfram Mathematica 12.1.1 of \n\
\[OpenCurlyDoubleQuote]Confronting the carbon pricing gap: Second best \
climate policy\[CloseCurlyDoubleQuote]\n", "Text",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["Journal of the Association of Environmental and Resource \
Economists", "Text",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" 2025\nAuthors: \nKatheline Schubert, Paris School of Economics, \
University Paris 1 Panth\[EAcute]on Sorbonne\nAude Pommeret, Universit\
\[EAcute] de Savoie Mont-Blanc (IREGE)\nFrancesco Ricci, CEE-M, Univ de \
Montpellier, CNRS, INRAE, Institut Agro Montpellier\nContact: \
francesco.ricci@umontpellier.fr\nVersion: July 2025\nThe authors acknowledge \
grant ScarCyclET (ANR-21-CE03-0012)\nCalibration on European Union final \
energy consumption \nStructure:\[LineSeparator]1. Calibration parameters\n2. \
Optimum\n3. Equilibrium with large constant carbon tax and temporary FIP\n4. \
Equilibrium with small constant carbon tax and temporary FIP\n5. Equilibrium \
with small constant carbon tax and permanent FIP", "Text",
  FontColor->RGBColor[0, 0, 1]]
}], "Subsection",
 CellChangeTimes->{{3.670751262663126*^9, 3.6707512716950045`*^9}, {
   3.6707571857820654`*^9, 3.670757725982362*^9}, {3.6707577720322423`*^9, 
   3.6707580313046722`*^9}, {3.670758110660347*^9, 3.6707582165148106`*^9}, {
   3.6707584462677717`*^9, 3.6707584879353724`*^9}, {3.670758525125772*^9, 
   3.670758677631154*^9}, {3.670758712667856*^9, 3.670758727659072*^9}, {
   3.6707587801829247`*^9, 3.6707590830476985`*^9}, {3.6707591682516212`*^9, 
   3.670759340889721*^9}, 3.676264331560053*^9, {3.6762643664095592`*^9, 
   3.676264388701388*^9}, {3.6762644454371333`*^9, 3.6762644949190645`*^9}, 
   3.676265225111653*^9, {3.6762653117372646`*^9, 3.676265317836708*^9}, 
   3.676265614494358*^9, {3.6762676904442005`*^9, 3.676267691894973*^9}, {
   3.676267761314638*^9, 3.6762677738723965`*^9}, {3.6762678074117517`*^9, 
   3.6762678324492702`*^9}, {3.676267911227755*^9, 3.676268044511592*^9}, {
   3.6762689986828485`*^9, 3.6762690074811354`*^9}, {3.67626910855224*^9, 
   3.6762691554140387`*^9}, {3.67626925364598*^9, 3.676269283628795*^9}, {
   3.6762693304749947`*^9, 3.676269352501912*^9}, {3.676269430064118*^9, 
   3.6762694664116516`*^9}, {3.676269682126686*^9, 3.6762697188042192`*^9}, {
   3.6762697794718413`*^9, 3.676269781000622*^9}, {3.6767818135145655`*^9, 
   3.6767818299725943`*^9}, {3.676781877178277*^9, 3.676782013553407*^9}, {
   3.6767820550972805`*^9, 3.676782245158105*^9}, {3.6767822829579716`*^9, 
   3.676782316747631*^9}, {3.6767823678845205`*^9, 3.6767824042637844`*^9}, {
   3.6767826046932263`*^9, 3.676782628702668*^9}, {3.6767826960635867`*^9, 
   3.6767826995423927`*^9}, {3.6767827454220734`*^9, 
   3.6767827928773565`*^9}, {3.6767828909674163`*^9, 
   3.6767829167708616`*^9}, {3.6767829980626044`*^9, 3.67678320181105*^9}, {
   3.6767832453351264`*^9, 3.6767832512475367`*^9}, {3.6767833203868585`*^9, 
   3.676783367608141*^9}, {3.6767834429361567`*^9, 3.6767836327260904`*^9}, {
   3.676783889237341*^9, 3.67678391145178*^9}, {3.676783947300643*^9, 
   3.6767839826347046`*^9}, {3.6767840141935606`*^9, 3.67678403531608*^9}, 
   3.676784201316972*^9, {3.676784335505494*^9, 3.676784361931941*^9}, {
   3.676784824707841*^9, 3.67678501748967*^9}, {3.6767851884191704`*^9, 
   3.676785228948041*^9}, 3.676785259024894*^9, {3.6767853194292*^9, 
   3.6767856309552307`*^9}, 3.676785727684484*^9, {3.676785769086957*^9, 
   3.6767857923933973`*^9}, 3.676785830644665*^9, {3.6767859019211903`*^9, 
   3.6767859726620045`*^9}, {3.6767861158430567`*^9, 
   3.6767862150124307`*^9}, {3.6767862720854187`*^9, 
   3.6767862821630363`*^9}, {3.6767865151504455`*^9, 
   3.6767865209536552`*^9}, {3.676786562150816*^9, 3.676786573632436*^9}, {
   3.676786751254348*^9, 3.676786752003149*^9}, {3.6767867885384135`*^9, 
   3.676786856538933*^9}, {3.676786886815276*^9, 3.6767868874080777`*^9}, {
   3.67678692891975*^9, 3.6767869294813514`*^9}, {3.676786979120639*^9, 
   3.6767869956254673`*^9}, {3.6767870404599466`*^9, 3.676787041427148*^9}, {
   3.676787088944832*^9, 3.676787143326527*^9}, {3.6767871742262683`*^9, 
   3.6767872414467864`*^9}, {3.676787506710343*^9, 3.6767875371927967`*^9}, 
   3.6767876487641926`*^9, {3.6767876904006653`*^9, 3.6767877003066826`*^9}, {
   3.6767877468727646`*^9, 3.6767878194871817`*^9}, {3.676787901948927*^9, 
   3.6767879511202126`*^9}, {3.676787996266692*^9, 3.676788108689172*^9}, {
   3.6767984764760714`*^9, 3.67679850390092*^9}, {3.676798701898559*^9, 
   3.6767987031933613`*^9}, {3.676798793876321*^9, 3.676798820396367*^9}, {
   3.676798883794879*^9, 3.6767989012981095`*^9}, {3.6767989778319354`*^9, 
   3.6767989975815697`*^9}, {3.676816436999343*^9, 3.676816453613366*^9}, {
   3.67681652720547*^9, 3.6768165282254715`*^9}, {3.6768822981645145`*^9, 
   3.6768823341069775`*^9}, 3.676882384245466*^9, {3.6768824210874205`*^9, 
   3.6768825120043807`*^9}, 3.6768825679616785`*^9, {3.6768828350732374`*^9, 
   3.67688283652404*^9}, {3.676882889080532*^9, 3.6768830203852525`*^9}, {
   3.6768830545961123`*^9, 3.67688307565615*^9}, {3.6781850229574013`*^9, 
   3.6781850442982388`*^9}, {3.678185317096918*^9, 3.6781853180017195`*^9}, {
   3.6781854089664793`*^9, 3.67818543770173*^9}, {3.6781854857030144`*^9, 
   3.678185487169417*^9}, {3.6781856754773474`*^9, 3.6781857222774296`*^9}, {
   3.678185823942808*^9, 3.678185855486064*^9}, 3.67818588754412*^9, {
   3.6781859338294015`*^9, 3.6781859743738728`*^9}, {3.6781860140291424`*^9, 
   3.6781860176951485`*^9}, {3.6781860497064047`*^9, 3.678186056476817*^9}, {
   3.6781861332445517`*^9, 3.6781862013074713`*^9}, {3.678440012133279*^9, 
   3.6784400130380807`*^9}, {3.6784400817562017`*^9, 
   3.6784401117394543`*^9}, {3.678440299236183*^9, 3.678440343961462*^9}, {
   3.678440746644969*^9, 3.678440795909856*^9}, {3.6784410750723457`*^9, 
   3.6784410753687468`*^9}, {3.6872221332742443`*^9, 3.687222169856309*^9}, {
   3.6934841047914743`*^9, 3.6934842315715876`*^9}, 3.693484270103655*^9, {
   3.6934843294617596`*^9, 3.6934843386657753`*^9}, {3.693484409021899*^9, 
   3.6934845275525937`*^9}, {3.6934846015747237`*^9, 
   3.6934846751756535`*^9}, {3.6934848033999653`*^9, 3.6934848461782403`*^9}, 
   3.693484904647143*^9, {3.6934849755336676`*^9, 3.693485084832741*^9}, {
   3.693485123645609*^9, 3.693485131055622*^9}, {3.6934851655316825`*^9, 
   3.693485244670622*^9}, {3.6934856149259577`*^9, 3.693485696015582*^9}, {
   3.6934857509120784`*^9, 3.69348576916411*^9}, {3.69348580888178*^9, 
   3.693485915789768*^9}, {3.693486329848663*^9, 3.6934863394894795`*^9}, {
   3.6935432280295544`*^9, 3.693543331566936*^9}, {3.693543395823449*^9, 
   3.6935434394421253`*^9}, {3.69354348775541*^9, 3.693543514837058*^9}, {
   3.693543567627551*^9, 3.693543632492465*^9}, {3.69354366944893*^9, 
   3.6935437296972356`*^9}, {3.6935438475554423`*^9, 3.693543931046789*^9}, {
   3.693544603171178*^9, 3.693544641625245*^9}, {3.69354469007893*^9, 
   3.6935448362634687`*^9}, {3.6935450674558744`*^9, 3.693545077315092*^9}, {
   3.6935451126335545`*^9, 3.693545150470902*^9}, {3.6935452310762434`*^9, 
   3.693545272697117*^9}, {3.693545324960209*^9, 3.6935455512436066`*^9}, {
   3.69354559871449*^9, 3.69354568980305*^9}, {3.693545961420306*^9, 
   3.69354598159746*^9}, {3.6935462818133297`*^9, 3.6935463435473475`*^9}, {
   3.6935464430911226`*^9, 3.6935464678171663`*^9}, {3.6935465046020308`*^9, 
   3.6935465231972632`*^9}, {3.693547576528993*^9, 3.6935475849218082`*^9}, {
   3.693547692811598*^9, 3.6935477200960455`*^9}, {3.693547751530101*^9, 
   3.6935477945705767`*^9}, {3.6935478299202385`*^9, 3.693547969290883*^9}, {
   3.693548003129343*^9, 3.6935480173565674`*^9}, {3.693548069398259*^9, 
   3.6935481054031224`*^9}, {3.6935673945017843`*^9, 3.693567544137247*^9}, {
   3.693567580672511*^9, 3.6935676025125494`*^9}, {3.6935676481270294`*^9, 
   3.693567649531032*^9}, {3.69356770512953*^9, 3.693567783114066*^9}, {
   3.6935678536573906`*^9, 3.693567883625043*^9}, {3.693567914372697*^9, 
   3.6935680358657103`*^9}, {3.6935680952706146`*^9, 
   3.6935681020722265`*^9}, {3.693568142039497*^9, 3.6935681853295727`*^9}, {
   3.693570592792536*^9, 3.693570666596266*^9}, {3.69357070915314*^9, 
   3.6935707166411533`*^9}, {3.693570861471808*^9, 3.69357092538612*^9}, {
   3.6935709563063745`*^9, 3.6935709680375953`*^9}, {3.6935712905719523`*^9, 
   3.693571293816758*^9}, {3.6935713355000315`*^9, 3.6935713406480403`*^9}, {
   3.693571410302163*^9, 3.6935714688958654`*^9}, {3.693571514666346*^9, 
   3.6935715214533577`*^9}, {3.693613521003137*^9, 3.6936135525727415`*^9}, {
   3.6936136444074907`*^9, 3.693613677418774*^9}, {3.693613731566362*^9, 
   3.693613752254079*^9}, {3.6936138492152643`*^9, 3.693613860346358*^9}, {
   3.693613929823763*^9, 3.6936139382038507`*^9}, 3.693614165649536*^9, {
   3.693614248609654*^9, 3.693614248780197*^9}, {3.6936142808150845`*^9, 
   3.6936142812461305`*^9}, {3.693614368744974*^9, 3.6936143688278685`*^9}, {
   3.69361440890644*^9, 3.69361443509452*^9}, 3.6936144721679087`*^9, {
   3.693614505043395*^9, 3.6936145054099674`*^9}, {3.6936147925726423`*^9, 
   3.6936147929449635`*^9}, {3.6936148693823366`*^9, 
   3.6936149298991976`*^9}, {3.6936476460255857`*^9, 3.6936476541532*^9}, {
   3.6936477390485487`*^9, 3.6936477394385495`*^9}, {3.6936489728138638`*^9, 
   3.6936489944043016`*^9}, {3.693827079603241*^9, 3.693827086919654*^9}, {
   3.6954602067909374`*^9, 3.695460245900206*^9}, {3.695463799683567*^9, 
   3.695463805393177*^9}, {3.6960577672106895`*^9, 3.6960578150715733`*^9}, 
   3.696662118200159*^9, {3.6974989857392635`*^9, 3.69749898634927*^9}, {
   3.6978530182570724`*^9, 3.697853023857473*^9}, {3.698542408047197*^9, 
   3.6985424084271927`*^9}, {3.698613941895917*^9, 3.6986139422759132`*^9}, {
   3.7010668228186283`*^9, 3.701066828237135*^9}, {3.701497117070485*^9, 
   3.701497151512701*^9}, {3.70149722497158*^9, 3.7014972262177877`*^9}, {
   3.7029671088318586`*^9, 3.7029671124618587`*^9}, {3.7032283117713823`*^9, 
   3.703228340085432*^9}, {3.721582538142764*^9, 3.721582633951579*^9}, {
   3.7215826721842012`*^9, 3.721582673826776*^9}, {3.7215827079504004`*^9, 
   3.721582736924955*^9}, {3.721583336989194*^9, 3.721583338516305*^9}, {
   3.72391076075486*^9, 3.723910822806775*^9}, {3.862383368446707*^9, 
   3.862383403056108*^9}, {3.8625578890937567`*^9, 3.862557904818603*^9}, {
   3.86470694014178*^9, 3.864706952965912*^9}, 3.882962943811658*^9, {
   3.88496957675675*^9, 3.8849698146402636`*^9}, {3.884970881199255*^9, 
   3.8849708914361916`*^9}, {3.884972588178667*^9, 3.8849725907784147`*^9}, {
   3.8849726209566803`*^9, 3.884972624674859*^9}, {3.890799154161188*^9, 
   3.8907991749234533`*^9}, {3.914907610020899*^9, 3.914907610182951*^9}, {
   3.920889983980001*^9, 3.9208899863877068`*^9}, {3.960881909044541*^9, 
   3.9608819182094207`*^9}, {3.960882012049732*^9, 3.96088206340742*^9}, {
   3.960882604217309*^9, 3.9608826510410023`*^9}, {3.960883115038364*^9, 
   3.9608831268963165`*^9}, {3.961085311013546*^9, 3.9610854970667934`*^9}, 
   3.96108555122006*^9, {3.9610855895945215`*^9, 3.96108559181979*^9}, {
   3.9610870340158634`*^9, 3.961087038706545*^9}, {3.961116544364746*^9, 
   3.961116589302436*^9}, {3.9611168507245855`*^9, 3.961116906321063*^9}, 
   3.96111741308381*^9, {3.9617518099194207`*^9, 3.9617518177573423`*^9}, {
   3.9617518762891216`*^9, 3.9617518781426916`*^9}},
 FontSize->16,ExpressionUUID->"23ae1bb4-6ebf-4d59-bc94-68cc6ff4dc06"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["1. Calibration parameters", "Section"]], "Subsection",
 CellChangeTimes->{{3.670751262663126*^9, 3.6707512716950045`*^9}, {
   3.6707571857820654`*^9, 3.670757725982362*^9}, {3.6707577720322423`*^9, 
   3.6707580313046722`*^9}, {3.670758110660347*^9, 3.6707582165148106`*^9}, {
   3.6707584462677717`*^9, 3.6707584879353724`*^9}, {3.670758525125772*^9, 
   3.670758677631154*^9}, {3.670758712667856*^9, 3.670758727659072*^9}, {
   3.6707587801829247`*^9, 3.6707590830476985`*^9}, {3.6707591682516212`*^9, 
   3.670759340889721*^9}, 3.676264331560053*^9, {3.6762643664095592`*^9, 
   3.676264388701388*^9}, {3.6762644454371333`*^9, 3.6762644949190645`*^9}, 
   3.676265225111653*^9, {3.6762653117372646`*^9, 3.676265317836708*^9}, 
   3.676265614494358*^9, {3.6762676904442005`*^9, 3.676267691894973*^9}, {
   3.676267761314638*^9, 3.6762677738723965`*^9}, {3.6762678074117517`*^9, 
   3.6762678324492702`*^9}, {3.676267911227755*^9, 3.676268044511592*^9}, {
   3.6762689986828485`*^9, 3.6762690074811354`*^9}, {3.67626910855224*^9, 
   3.6762691554140387`*^9}, {3.67626925364598*^9, 3.676269283628795*^9}, {
   3.6762693304749947`*^9, 3.676269352501912*^9}, {3.676269430064118*^9, 
   3.6762694664116516`*^9}, {3.676269682126686*^9, 3.6762697188042192`*^9}, {
   3.6762697794718413`*^9, 3.676269781000622*^9}, {3.6767818135145655`*^9, 
   3.6767818299725943`*^9}, {3.676781877178277*^9, 3.676782013553407*^9}, {
   3.6767820550972805`*^9, 3.676782245158105*^9}, {3.6767822829579716`*^9, 
   3.676782316747631*^9}, {3.6767823678845205`*^9, 3.6767824042637844`*^9}, {
   3.6767826046932263`*^9, 3.676782628702668*^9}, {3.6767826960635867`*^9, 
   3.6767826995423927`*^9}, {3.6767827454220734`*^9, 
   3.6767827928773565`*^9}, {3.6767828909674163`*^9, 
   3.6767829167708616`*^9}, {3.6767829980626044`*^9, 3.67678320181105*^9}, {
   3.6767832453351264`*^9, 3.6767832512475367`*^9}, {3.6767833203868585`*^9, 
   3.676783367608141*^9}, {3.6767834429361567`*^9, 3.6767836327260904`*^9}, {
   3.676783889237341*^9, 3.67678391145178*^9}, {3.676783947300643*^9, 
   3.6767839826347046`*^9}, {3.6767840141935606`*^9, 3.67678403531608*^9}, 
   3.676784201316972*^9, {3.676784335505494*^9, 3.676784361931941*^9}, {
   3.676784824707841*^9, 3.67678501748967*^9}, {3.6767851884191704`*^9, 
   3.676785228948041*^9}, 3.676785259024894*^9, {3.6767853194292*^9, 
   3.6767856309552307`*^9}, 3.676785727684484*^9, {3.676785769086957*^9, 
   3.6767857923933973`*^9}, 3.676785830644665*^9, {3.6767859019211903`*^9, 
   3.6767859726620045`*^9}, {3.6767861158430567`*^9, 
   3.6767862150124307`*^9}, {3.6767862720854187`*^9, 
   3.6767862821630363`*^9}, {3.6767865151504455`*^9, 
   3.6767865209536552`*^9}, {3.676786562150816*^9, 3.676786573632436*^9}, {
   3.676786751254348*^9, 3.676786752003149*^9}, {3.6767867885384135`*^9, 
   3.676786856538933*^9}, {3.676786886815276*^9, 3.6767868874080777`*^9}, {
   3.67678692891975*^9, 3.6767869294813514`*^9}, {3.676786979120639*^9, 
   3.6767869956254673`*^9}, {3.6767870404599466`*^9, 3.676787041427148*^9}, {
   3.676787088944832*^9, 3.676787143326527*^9}, {3.6767871742262683`*^9, 
   3.6767872414467864`*^9}, {3.676787506710343*^9, 3.6767875371927967`*^9}, 
   3.6767876487641926`*^9, {3.6767876904006653`*^9, 3.6767877003066826`*^9}, {
   3.6767877468727646`*^9, 3.6767878194871817`*^9}, {3.676787901948927*^9, 
   3.6767879511202126`*^9}, {3.676787996266692*^9, 3.676788108689172*^9}, {
   3.6767984764760714`*^9, 3.67679850390092*^9}, {3.676798701898559*^9, 
   3.6767987031933613`*^9}, {3.676798793876321*^9, 3.676798820396367*^9}, {
   3.676798883794879*^9, 3.6767989012981095`*^9}, {3.6767989778319354`*^9, 
   3.6767989975815697`*^9}, {3.676816436999343*^9, 3.676816453613366*^9}, {
   3.67681652720547*^9, 3.6768165282254715`*^9}, {3.6768822981645145`*^9, 
   3.6768823341069775`*^9}, 3.676882384245466*^9, {3.6768824210874205`*^9, 
   3.6768825120043807`*^9}, 3.6768825679616785`*^9, {3.6768828350732374`*^9, 
   3.67688283652404*^9}, {3.676882889080532*^9, 3.6768830203852525`*^9}, {
   3.6768830545961123`*^9, 3.67688307565615*^9}, {3.6781850229574013`*^9, 
   3.6781850442982388`*^9}, {3.678185317096918*^9, 3.6781853180017195`*^9}, {
   3.6781854089664793`*^9, 3.67818543770173*^9}, {3.6781854857030144`*^9, 
   3.678185487169417*^9}, {3.6781856754773474`*^9, 3.6781857222774296`*^9}, {
   3.678185823942808*^9, 3.678185855486064*^9}, 3.67818588754412*^9, {
   3.6781859338294015`*^9, 3.6781859743738728`*^9}, {3.6781860140291424`*^9, 
   3.6781860176951485`*^9}, {3.6781860497064047`*^9, 3.678186056476817*^9}, {
   3.6781861332445517`*^9, 3.6781862013074713`*^9}, {3.678440012133279*^9, 
   3.6784400130380807`*^9}, {3.6784400817562017`*^9, 
   3.6784401117394543`*^9}, {3.678440299236183*^9, 3.678440343961462*^9}, {
   3.678440746644969*^9, 3.678440795909856*^9}, {3.6784410750723457`*^9, 
   3.6784410753687468`*^9}, {3.6872221332742443`*^9, 3.687222169856309*^9}, {
   3.6934841047914743`*^9, 3.6934842315715876`*^9}, 3.693484270103655*^9, {
   3.6934843294617596`*^9, 3.6934843386657753`*^9}, {3.693484409021899*^9, 
   3.6934845275525937`*^9}, {3.6934846015747237`*^9, 
   3.6934846751756535`*^9}, {3.6934848033999653`*^9, 3.6934848461782403`*^9}, 
   3.693484904647143*^9, {3.6934849755336676`*^9, 3.693485084832741*^9}, {
   3.693485123645609*^9, 3.693485131055622*^9}, {3.6934851655316825`*^9, 
   3.693485244670622*^9}, {3.6934856149259577`*^9, 3.693485696015582*^9}, {
   3.6934857509120784`*^9, 3.69348576916411*^9}, {3.69348580888178*^9, 
   3.693485915789768*^9}, {3.693486329848663*^9, 3.6934863394894795`*^9}, {
   3.6935432280295544`*^9, 3.693543331566936*^9}, {3.693543395823449*^9, 
   3.6935434394421253`*^9}, {3.69354348775541*^9, 3.693543514837058*^9}, {
   3.693543567627551*^9, 3.693543632492465*^9}, {3.69354366944893*^9, 
   3.6935437296972356`*^9}, {3.6935438475554423`*^9, 3.693543931046789*^9}, {
   3.693544603171178*^9, 3.693544641625245*^9}, {3.69354469007893*^9, 
   3.6935448362634687`*^9}, {3.6935450674558744`*^9, 3.693545077315092*^9}, {
   3.6935451126335545`*^9, 3.693545150470902*^9}, {3.6935452310762434`*^9, 
   3.693545272697117*^9}, {3.693545324960209*^9, 3.6935455512436066`*^9}, {
   3.69354559871449*^9, 3.69354568980305*^9}, {3.693545961420306*^9, 
   3.69354598159746*^9}, {3.6935462818133297`*^9, 3.6935463435473475`*^9}, {
   3.6935464430911226`*^9, 3.6935464678171663`*^9}, {3.6935465046020308`*^9, 
   3.6935465231972632`*^9}, {3.693547576528993*^9, 3.6935475849218082`*^9}, {
   3.693547692811598*^9, 3.6935477200960455`*^9}, {3.693547751530101*^9, 
   3.6935477945705767`*^9}, {3.6935478299202385`*^9, 3.693547969290883*^9}, {
   3.693548003129343*^9, 3.6935480173565674`*^9}, {3.693548069398259*^9, 
   3.6935481054031224`*^9}, {3.6935673945017843`*^9, 3.693567544137247*^9}, {
   3.693567580672511*^9, 3.6935676025125494`*^9}, {3.6935676481270294`*^9, 
   3.693567649531032*^9}, {3.69356770512953*^9, 3.693567783114066*^9}, {
   3.6935678536573906`*^9, 3.693567883625043*^9}, {3.693567914372697*^9, 
   3.6935680358657103`*^9}, {3.6935680952706146`*^9, 
   3.6935681020722265`*^9}, {3.693568142039497*^9, 3.6935681853295727`*^9}, {
   3.693570592792536*^9, 3.693570666596266*^9}, {3.69357070915314*^9, 
   3.6935707166411533`*^9}, {3.693570861471808*^9, 3.69357092538612*^9}, {
   3.6935709563063745`*^9, 3.6935709680375953`*^9}, {3.6935712905719523`*^9, 
   3.693571293816758*^9}, {3.6935713355000315`*^9, 3.6935713406480403`*^9}, {
   3.693571410302163*^9, 3.6935714688958654`*^9}, {3.693571514666346*^9, 
   3.6935715214533577`*^9}, {3.693613521003137*^9, 3.6936135525727415`*^9}, {
   3.6936136444074907`*^9, 3.693613677418774*^9}, {3.693613731566362*^9, 
   3.693613752254079*^9}, {3.6936138492152643`*^9, 3.693613860346358*^9}, {
   3.693613929823763*^9, 3.6936139382038507`*^9}, 3.693614165649536*^9, {
   3.693614248609654*^9, 3.693614248780197*^9}, {3.6936142808150845`*^9, 
   3.6936142812461305`*^9}, {3.693614368744974*^9, 3.6936143688278685`*^9}, {
   3.69361440890644*^9, 3.69361443509452*^9}, 3.6936144721679087`*^9, {
   3.693614505043395*^9, 3.6936145054099674`*^9}, {3.6936147925726423`*^9, 
   3.6936147929449635`*^9}, {3.6936148693823366`*^9, 
   3.6936149298991976`*^9}, {3.6936476460255857`*^9, 3.6936476541532*^9}, {
   3.6936477390485487`*^9, 3.6936477394385495`*^9}, {3.6936489728138638`*^9, 
   3.6936489944043016`*^9}, {3.693827079603241*^9, 3.693827086919654*^9}, {
   3.6954602067909374`*^9, 3.695460245900206*^9}, {3.695463799683567*^9, 
   3.695463805393177*^9}, {3.6960577672106895`*^9, 3.6960578150715733`*^9}, 
   3.696662118200159*^9, {3.6974989857392635`*^9, 3.69749898634927*^9}, {
   3.6978530182570724`*^9, 3.697853023857473*^9}, {3.698542408047197*^9, 
   3.6985424084271927`*^9}, {3.698613941895917*^9, 3.6986139422759132`*^9}, {
   3.7010668228186283`*^9, 3.701066828237135*^9}, {3.701497117070485*^9, 
   3.701497151512701*^9}, {3.70149722497158*^9, 3.7014972262177877`*^9}, {
   3.7029671088318586`*^9, 3.7029671124618587`*^9}, {3.7032283117713823`*^9, 
   3.703228340085432*^9}, {3.721582538142764*^9, 3.721582633951579*^9}, {
   3.7215826721842012`*^9, 3.721582673826776*^9}, {3.7215827079504004`*^9, 
   3.721582736924955*^9}, {3.721583336989194*^9, 3.721583338516305*^9}, {
   3.72391076075486*^9, 3.723910822806775*^9}, {3.862383410957645*^9, 
   3.862383415937839*^9}, {3.960882044791704*^9, 3.9608820460481195`*^9}, {
   3.9608822585765624`*^9, 3.96088225911281*^9}, 3.960882704655987*^9, 
   3.960882738154052*^9, {3.961751823926031*^9, 3.961751831828051*^9}},
 FontSize->16,ExpressionUUID->"d72800b6-62a1-4993-8038-425c677f86b2"],

Cell[TextData[StyleBox["See Table 1 and Appendix G of the article and file \
SchubertPommeretRicci_JAERE_2025_parametersinitialvalues.xlsx",
 FontColor->RGBColor[0, 0, 1]]], "Text",
 CellChangeTimes->{{3.670751262663126*^9, 3.6707512716950045`*^9}, {
   3.6707571857820654`*^9, 3.670757725982362*^9}, {3.6707577720322423`*^9, 
   3.6707580313046722`*^9}, {3.670758110660347*^9, 3.6707582165148106`*^9}, {
   3.6707584462677717`*^9, 3.6707584879353724`*^9}, {3.670758525125772*^9, 
   3.670758677631154*^9}, {3.670758712667856*^9, 3.670758727659072*^9}, {
   3.6707587801829247`*^9, 3.6707590830476985`*^9}, {3.6707591682516212`*^9, 
   3.670759340889721*^9}, 3.676264331560053*^9, {3.6762643664095592`*^9, 
   3.676264388701388*^9}, {3.6762644454371333`*^9, 3.6762644949190645`*^9}, 
   3.676265225111653*^9, {3.6762653117372646`*^9, 3.676265317836708*^9}, 
   3.676265614494358*^9, {3.6762676904442005`*^9, 3.676267691894973*^9}, {
   3.676267761314638*^9, 3.6762677738723965`*^9}, {3.6762678074117517`*^9, 
   3.6762678324492702`*^9}, {3.676267911227755*^9, 3.676268044511592*^9}, {
   3.6762689986828485`*^9, 3.6762690074811354`*^9}, {3.67626910855224*^9, 
   3.6762691554140387`*^9}, {3.67626925364598*^9, 3.676269283628795*^9}, {
   3.6762693304749947`*^9, 3.676269352501912*^9}, {3.676269430064118*^9, 
   3.6762694664116516`*^9}, {3.676269682126686*^9, 3.6762697188042192`*^9}, {
   3.6762697794718413`*^9, 3.676269781000622*^9}, {3.6767818135145655`*^9, 
   3.6767818299725943`*^9}, {3.676781877178277*^9, 3.676782013553407*^9}, {
   3.6767820550972805`*^9, 3.676782245158105*^9}, {3.6767822829579716`*^9, 
   3.676782316747631*^9}, {3.6767823678845205`*^9, 3.6767824042637844`*^9}, {
   3.6767826046932263`*^9, 3.676782628702668*^9}, {3.6767826960635867`*^9, 
   3.6767826995423927`*^9}, {3.6767827454220734`*^9, 
   3.6767827928773565`*^9}, {3.6767828909674163`*^9, 
   3.6767829167708616`*^9}, {3.6767829980626044`*^9, 3.67678320181105*^9}, {
   3.6767832453351264`*^9, 3.6767832512475367`*^9}, {3.6767833203868585`*^9, 
   3.676783367608141*^9}, {3.6767834429361567`*^9, 3.6767836327260904`*^9}, {
   3.676783889237341*^9, 3.67678391145178*^9}, {3.676783947300643*^9, 
   3.6767839826347046`*^9}, {3.6767840141935606`*^9, 3.67678403531608*^9}, 
   3.676784201316972*^9, {3.676784335505494*^9, 3.676784361931941*^9}, {
   3.676784824707841*^9, 3.67678501748967*^9}, {3.6767851884191704`*^9, 
   3.676785228948041*^9}, 3.676785259024894*^9, {3.6767853194292*^9, 
   3.6767856309552307`*^9}, 3.676785727684484*^9, {3.676785769086957*^9, 
   3.6767857923933973`*^9}, 3.676785830644665*^9, {3.6767859019211903`*^9, 
   3.6767859726620045`*^9}, {3.6767861158430567`*^9, 
   3.6767862150124307`*^9}, {3.6767862720854187`*^9, 
   3.6767862821630363`*^9}, {3.6767865151504455`*^9, 
   3.6767865209536552`*^9}, {3.676786562150816*^9, 3.676786573632436*^9}, {
   3.676786751254348*^9, 3.676786752003149*^9}, {3.6767867885384135`*^9, 
   3.676786856538933*^9}, {3.676786886815276*^9, 3.6767868874080777`*^9}, {
   3.67678692891975*^9, 3.6767869294813514`*^9}, {3.676786979120639*^9, 
   3.6767869956254673`*^9}, {3.6767870404599466`*^9, 3.676787041427148*^9}, {
   3.676787088944832*^9, 3.676787143326527*^9}, {3.6767871742262683`*^9, 
   3.6767872414467864`*^9}, {3.676787506710343*^9, 3.6767875371927967`*^9}, 
   3.6767876487641926`*^9, {3.6767876904006653`*^9, 3.6767877003066826`*^9}, {
   3.6767877468727646`*^9, 3.6767878194871817`*^9}, {3.676787901948927*^9, 
   3.6767879511202126`*^9}, {3.676787996266692*^9, 3.676788108689172*^9}, {
   3.6767984764760714`*^9, 3.67679850390092*^9}, {3.676798701898559*^9, 
   3.6767987031933613`*^9}, {3.676798793876321*^9, 3.676798820396367*^9}, {
   3.676798883794879*^9, 3.6767989012981095`*^9}, {3.6767989778319354`*^9, 
   3.6767989975815697`*^9}, {3.676816436999343*^9, 3.676816453613366*^9}, {
   3.67681652720547*^9, 3.6768165282254715`*^9}, {3.6768822981645145`*^9, 
   3.6768823341069775`*^9}, 3.676882384245466*^9, {3.6768824210874205`*^9, 
   3.6768825120043807`*^9}, 3.6768825679616785`*^9, {3.6768828350732374`*^9, 
   3.67688283652404*^9}, {3.676882889080532*^9, 3.6768830203852525`*^9}, {
   3.6768830545961123`*^9, 3.67688307565615*^9}, {3.6781850229574013`*^9, 
   3.6781850442982388`*^9}, {3.678185317096918*^9, 3.6781853180017195`*^9}, {
   3.6781854089664793`*^9, 3.67818543770173*^9}, {3.6781854857030144`*^9, 
   3.678185487169417*^9}, {3.6781856754773474`*^9, 3.6781857222774296`*^9}, {
   3.678185823942808*^9, 3.678185855486064*^9}, 3.67818588754412*^9, {
   3.6781859338294015`*^9, 3.6781859743738728`*^9}, {3.6781860140291424`*^9, 
   3.6781860176951485`*^9}, {3.6781860497064047`*^9, 3.678186056476817*^9}, {
   3.6781861332445517`*^9, 3.6781862013074713`*^9}, {3.678440012133279*^9, 
   3.6784400130380807`*^9}, {3.6784400817562017`*^9, 
   3.6784401117394543`*^9}, {3.678440299236183*^9, 3.678440343961462*^9}, {
   3.678440746644969*^9, 3.678440795909856*^9}, {3.6784410750723457`*^9, 
   3.6784410753687468`*^9}, {3.6872221332742443`*^9, 3.687222169856309*^9}, {
   3.6934841047914743`*^9, 3.6934842315715876`*^9}, 3.693484270103655*^9, {
   3.6934843294617596`*^9, 3.6934843386657753`*^9}, {3.693484409021899*^9, 
   3.6934845275525937`*^9}, {3.6934846015747237`*^9, 
   3.6934846751756535`*^9}, {3.6934848033999653`*^9, 3.6934848461782403`*^9}, 
   3.693484904647143*^9, {3.6934849755336676`*^9, 3.693485084832741*^9}, {
   3.693485123645609*^9, 3.693485131055622*^9}, {3.6934851655316825`*^9, 
   3.693485244670622*^9}, {3.6934856149259577`*^9, 3.693485696015582*^9}, {
   3.6934857509120784`*^9, 3.69348576916411*^9}, {3.69348580888178*^9, 
   3.693485915789768*^9}, {3.693486329848663*^9, 3.6934863394894795`*^9}, {
   3.6935432280295544`*^9, 3.693543331566936*^9}, {3.693543395823449*^9, 
   3.6935434394421253`*^9}, {3.69354348775541*^9, 3.693543514837058*^9}, {
   3.693543567627551*^9, 3.693543632492465*^9}, {3.69354366944893*^9, 
   3.6935437296972356`*^9}, {3.6935438475554423`*^9, 3.693543931046789*^9}, {
   3.693544603171178*^9, 3.693544641625245*^9}, {3.69354469007893*^9, 
   3.6935448362634687`*^9}, {3.6935450674558744`*^9, 3.693545077315092*^9}, {
   3.6935451126335545`*^9, 3.693545150470902*^9}, {3.6935452310762434`*^9, 
   3.693545272697117*^9}, {3.693545324960209*^9, 3.6935455512436066`*^9}, {
   3.69354559871449*^9, 3.69354568980305*^9}, {3.693545961420306*^9, 
   3.69354598159746*^9}, {3.6935462818133297`*^9, 3.6935463435473475`*^9}, {
   3.6935464430911226`*^9, 3.6935464678171663`*^9}, {3.6935465046020308`*^9, 
   3.6935465231972632`*^9}, {3.693547576528993*^9, 3.6935475849218082`*^9}, {
   3.693547692811598*^9, 3.6935477200960455`*^9}, {3.693547751530101*^9, 
   3.6935477945705767`*^9}, {3.6935478299202385`*^9, 3.693547969290883*^9}, {
   3.693548003129343*^9, 3.6935480173565674`*^9}, {3.693548069398259*^9, 
   3.6935481054031224`*^9}, {3.6935673945017843`*^9, 3.693567544137247*^9}, {
   3.693567580672511*^9, 3.6935676025125494`*^9}, {3.6935676481270294`*^9, 
   3.693567649531032*^9}, {3.69356770512953*^9, 3.693567783114066*^9}, {
   3.6935678536573906`*^9, 3.693567883625043*^9}, {3.693567914372697*^9, 
   3.6935680358657103`*^9}, {3.6935680952706146`*^9, 
   3.6935681020722265`*^9}, {3.693568142039497*^9, 3.6935681853295727`*^9}, {
   3.693570592792536*^9, 3.693570666596266*^9}, {3.69357070915314*^9, 
   3.6935707166411533`*^9}, {3.693570861471808*^9, 3.69357092538612*^9}, {
   3.6935709563063745`*^9, 3.6935709680375953`*^9}, {3.6935712905719523`*^9, 
   3.693571293816758*^9}, {3.6935713355000315`*^9, 3.6935713406480403`*^9}, {
   3.693571410302163*^9, 3.6935714688958654`*^9}, {3.693571514666346*^9, 
   3.6935715214533577`*^9}, {3.693613521003137*^9, 3.6936135525727415`*^9}, {
   3.6936136444074907`*^9, 3.693613677418774*^9}, {3.693613731566362*^9, 
   3.693613752254079*^9}, {3.6936138492152643`*^9, 3.693613860346358*^9}, {
   3.693613929823763*^9, 3.6936139382038507`*^9}, 3.693614165649536*^9, {
   3.693614248609654*^9, 3.693614248780197*^9}, {3.6936142808150845`*^9, 
   3.6936142812461305`*^9}, {3.693614368744974*^9, 3.6936143688278685`*^9}, {
   3.69361440890644*^9, 3.69361443509452*^9}, 3.6936144721679087`*^9, {
   3.693614505043395*^9, 3.6936145054099674`*^9}, {3.6936147925726423`*^9, 
   3.6936147929449635`*^9}, {3.6936148693823366`*^9, 
   3.6936149298991976`*^9}, {3.6936476460255857`*^9, 3.6936476541532*^9}, {
   3.6936477390485487`*^9, 3.6936477394385495`*^9}, {3.6936489728138638`*^9, 
   3.6936489944043016`*^9}, {3.693827079603241*^9, 3.693827086919654*^9}, {
   3.6954602067909374`*^9, 3.695460245900206*^9}, {3.695463799683567*^9, 
   3.695463805393177*^9}, {3.6960577672106895`*^9, 3.6960578150715733`*^9}, 
   3.696662118200159*^9, {3.6974989857392635`*^9, 3.69749898634927*^9}, {
   3.6978530182570724`*^9, 3.697853023857473*^9}, {3.698542408047197*^9, 
   3.6985424084271927`*^9}, {3.698613941895917*^9, 3.6986139422759132`*^9}, {
   3.7010668228186283`*^9, 3.701066828237135*^9}, {3.701497117070485*^9, 
   3.701497151512701*^9}, {3.70149722497158*^9, 3.7014972262177877`*^9}, {
   3.7029671088318586`*^9, 3.7029671124618587`*^9}, {3.7032283117713823`*^9, 
   3.703228340085432*^9}, {3.721582538142764*^9, 3.721582633951579*^9}, {
   3.7215826721842012`*^9, 3.721582673826776*^9}, {3.7215827079504004`*^9, 
   3.721582736924955*^9}, {3.721583336989194*^9, 3.721583338516305*^9}, 
   3.72391076075486*^9, {3.723910830335164*^9, 3.723910838498369*^9}, {
   3.724050044866043*^9, 3.724050046159108*^9}, {3.728035508982576*^9, 
   3.728035516219651*^9}, {3.728035546253584*^9, 3.728035581561035*^9}, {
   3.728106307828312*^9, 3.728106391803055*^9}, {3.730634204508713*^9, 
   3.7306343286675215`*^9}, {3.730642129643343*^9, 3.730642130703637*^9}, {
   3.730642173945459*^9, 3.730642174980401*^9}, {3.7306422240994883`*^9, 
   3.7306422258776827`*^9}, {3.730642265854638*^9, 3.730642267137167*^9}, {
   3.730642310561317*^9, 3.730642311371129*^9}, {3.7306423451084003`*^9, 
   3.730642348930004*^9}, {3.73064239206772*^9, 3.730642399293949*^9}, {
   3.730642437169807*^9, 3.730642443154512*^9}, {3.730642516680331*^9, 
   3.730642517306563*^9}, {3.730642559057053*^9, 3.730642560361334*^9}, {
   3.730642609748269*^9, 3.730642613391408*^9}, {3.7306426483891487`*^9, 
   3.7306426489282417`*^9}, {3.73064268653338*^9, 3.730642687486306*^9}, {
   3.7306436815407887`*^9, 3.730643682220921*^9}, {3.7306437263026037`*^9, 
   3.730643727345776*^9}, {3.730643771696148*^9, 3.730643772459749*^9}, {
   3.730643918725091*^9, 3.730643919778508*^9}, {3.730643964588471*^9, 
   3.7306439655933723`*^9}, {3.7306439972053843`*^9, 3.730644000314249*^9}, {
   3.730644039020733*^9, 3.730644039753038*^9}, {3.730644072491724*^9, 
   3.7306440736229267`*^9}, {3.7306441270461082`*^9, 3.73064415322465*^9}, {
   3.730644201203002*^9, 3.730644203568626*^9}, {3.73064447553526*^9, 
   3.7306445047650547`*^9}, {3.730644545947328*^9, 3.730644546746149*^9}, {
   3.7306445982748632`*^9, 3.7306446022899647`*^9}, {3.7306446367296343`*^9, 
   3.730644637593005*^9}, {3.730644670408227*^9, 3.730644696025078*^9}, {
   3.730644737785084*^9, 3.730644739235012*^9}, {3.730648500553602*^9, 
   3.73064850818226*^9}, {3.7306485753958406`*^9, 3.7306485842255774`*^9}, {
   3.7306488382380733`*^9, 3.730648840696993*^9}, {3.730648968060107*^9, 
   3.730648968828146*^9}, {3.730649871433724*^9, 3.7306498773125973`*^9}, {
   3.730649937998598*^9, 3.730649938622899*^9}, {3.730649977577483*^9, 
   3.730649978216008*^9}, {3.730650046956876*^9, 3.7306500475057573`*^9}, {
   3.730650203158321*^9, 3.730650204637803*^9}, {3.730650321159915*^9, 
   3.7306503242257833`*^9}, {3.730650790784133*^9, 3.7306507919722443`*^9}, {
   3.7306509703598337`*^9, 3.730650971417018*^9}, {3.730651019638398*^9, 
   3.730651021311689*^9}, {3.730651053332301*^9, 3.730651053760888*^9}, {
   3.730651106097258*^9, 3.730651106905458*^9}, {3.73065124011828*^9, 
   3.730651240869871*^9}, {3.730651279328733*^9, 3.7306512853147297`*^9}, {
   3.730651338435861*^9, 3.7306513391048*^9}, {3.730651378394875*^9, 
   3.730651378912775*^9}, {3.730651603880928*^9, 3.730651605923779*^9}, {
   3.730651733195188*^9, 3.7306517335832853`*^9}, {3.793187973492022*^9, 
   3.79318797410968*^9}, {3.793188100182475*^9, 3.7931881129020348`*^9}, {
   3.793188397814719*^9, 3.793188401468252*^9}, {3.793189187483427*^9, 
   3.793189453260683*^9}, {3.793190751083112*^9, 3.793190768069303*^9}, {
   3.793192508148878*^9, 3.79319254251019*^9}, {3.7931979818015614`*^9, 
   3.793198024698587*^9}, {3.793198091311885*^9, 3.793198092674531*^9}, {
   3.793351290676355*^9, 3.793351369778689*^9}, {3.793351418199696*^9, 
   3.7933514811904507`*^9}, {3.793352833588657*^9, 3.7933528747509527`*^9}, {
   3.793353332336484*^9, 3.7933533605930767`*^9}, {3.793354273561565*^9, 
   3.793354274214408*^9}, {3.7933547575282307`*^9, 3.793354852847948*^9}, {
   3.793355167496249*^9, 3.7933551693531446`*^9}, {3.7933562586915503`*^9, 
   3.7933562848006077`*^9}, {3.79336209598685*^9, 3.7933620966661882`*^9}, {
   3.793362705386194*^9, 3.793362706049535*^9}, {3.7933632919701633`*^9, 
   3.793363292837576*^9}, {3.793363392998446*^9, 3.793363465326754*^9}, {
   3.7933635140283737`*^9, 3.7933635146790857`*^9}, {3.793365610602235*^9, 
   3.793365640994565*^9}, {3.7933663494173613`*^9, 3.7933663499911346`*^9}, {
   3.793369846321529*^9, 3.793369872539796*^9}, {3.793371966425791*^9, 
   3.793372061775339*^9}, {3.793372198822784*^9, 3.7933722175823298`*^9}, {
   3.793372280956873*^9, 3.7933723594848957`*^9}, {3.7933724004192047`*^9, 
   3.793372440802866*^9}, {3.794717694075115*^9, 3.794717756390066*^9}, {
   3.794718069217606*^9, 3.794718089283869*^9}, {3.79471815529583*^9, 
   3.794718155937859*^9}, {3.794718192422448*^9, 3.7947182064974213`*^9}, {
   3.794718286930811*^9, 3.794718331316106*^9}, {3.794718382257937*^9, 
   3.794718385246767*^9}, {3.794719641222299*^9, 3.79471970829278*^9}, {
   3.7947199421315804`*^9, 3.794719972900711*^9}, {3.794720151557324*^9, 
   3.794720178608848*^9}, {3.7947202829746323`*^9, 3.7947202842763863`*^9}, {
   3.794721023956094*^9, 3.794721220963196*^9}, {3.794721255655641*^9, 
   3.794721345356707*^9}, {3.7947213841095543`*^9, 3.79472141132965*^9}, {
   3.794721449280252*^9, 3.794721462850133*^9}, {3.794803966870572*^9, 
   3.794803969779263*^9}, {3.7948040112503138`*^9, 3.794804011394017*^9}, {
   3.7948040442528543`*^9, 3.7948040450899143`*^9}, {3.79480408515598*^9, 
   3.7948040876509953`*^9}, {3.794804126756987*^9, 3.7948041536736393`*^9}, {
   3.79480418477722*^9, 3.794804208389431*^9}, {3.794804268330059*^9, 
   3.794804268954809*^9}, {3.794804322959546*^9, 3.794804323779276*^9}, {
   3.79480472995184*^9, 3.794804756709017*^9}, {3.7948047933704433`*^9, 
   3.7948048217906017`*^9}, {3.79534256962257*^9, 3.79534259991199*^9}, {
   3.795342638755518*^9, 3.795342639556974*^9}, {3.7953426741903353`*^9, 
   3.795342675077209*^9}, {3.795342708235327*^9, 3.7953427087956543`*^9}, {
   3.795342743719316*^9, 3.795342747621437*^9}, {3.795342905306306*^9, 
   3.7953429061302557`*^9}, {3.795342956815152*^9, 3.795342957337069*^9}, {
   3.795342990632867*^9, 3.795342991284628*^9}, {3.795343113462845*^9, 
   3.7953431142516117`*^9}, {3.795343227497652*^9, 3.7953432282581787`*^9}, {
   3.795345360017414*^9, 3.7953453607947187`*^9}, {3.795345392677987*^9, 
   3.795345476014468*^9}, {3.795345538061091*^9, 3.7953455392839317`*^9}, {
   3.7953455808690653`*^9, 3.7953455817781153`*^9}, {3.7953456270938873`*^9, 
   3.7953456279913588`*^9}, {3.795345684344247*^9, 3.795345685281439*^9}, {
   3.795345752707193*^9, 3.7953458074415827`*^9}, {3.795345847323403*^9, 
   3.795345877450775*^9}, {3.795345909593305*^9, 3.795345960019555*^9}, {
   3.7953459930517387`*^9, 3.795346058476944*^9}, {3.7963882576116943`*^9, 
   3.796388286128562*^9}, 3.7963883203989773`*^9, {3.796388365013165*^9, 
   3.7963883944026413`*^9}, {3.796388426206444*^9, 3.796388426837888*^9}, {
   3.796388471981062*^9, 3.7963884727936983`*^9}, {3.796388530761899*^9, 
   3.7963885320040913`*^9}, {3.7963885630133877`*^9, 3.796388565709681*^9}, {
   3.7963886414631987`*^9, 3.7963886424907923`*^9}, 3.796388672732607*^9, {
   3.796388783943017*^9, 3.796388799046713*^9}, {3.7963888367372093`*^9, 
   3.796388837273408*^9}, {3.796718921069089*^9, 3.796719021096674*^9}, {
   3.796719351782094*^9, 3.796719369681489*^9}, {3.796719458659975*^9, 
   3.796719730685463*^9}, {3.79671989882338*^9, 3.796719926798883*^9}, {
   3.796720120370945*^9, 3.7967201214988403`*^9}, {3.796720157793552*^9, 
   3.796720164977096*^9}, {3.79672021277558*^9, 3.796720213658792*^9}, {
   3.796720264167673*^9, 3.796720295153514*^9}, {3.796720357256427*^9, 
   3.796720386690591*^9}, {3.796720452952765*^9, 3.796720477977131*^9}, {
   3.7967205119453487`*^9, 3.796720513410746*^9}, {3.796720556259996*^9, 
   3.796720587296492*^9}, {3.7967207686173973`*^9, 3.796720769225589*^9}, {
   3.796720947402896*^9, 3.796720955376739*^9}, {3.796721047452094*^9, 
   3.796721106707829*^9}, {3.796721152075864*^9, 3.796721315915847*^9}, {
   3.796724858406836*^9, 3.796724861191728*^9}, {3.796725140067284*^9, 
   3.796725185881442*^9}, {3.7967252177957687`*^9, 3.7967252186596823`*^9}, {
   3.7967252648988237`*^9, 3.7967252654897623`*^9}, {3.796725305779867*^9, 
   3.796725306307972*^9}, {3.796725342231475*^9, 3.7967253431800203`*^9}, {
   3.796725389803131*^9, 3.796725414962843*^9}, {3.796725470943557*^9, 
   3.7967255214666843`*^9}, {3.79672563274922*^9, 3.79672563545667*^9}, {
   3.79672886396968*^9, 3.796728864109047*^9}, {3.796728904097514*^9, 
   3.7967289048539124`*^9}, {3.79672898139697*^9, 3.7967290085301847`*^9}, {
   3.796731125095937*^9, 3.7967311259325533`*^9}, {3.7967311730326157`*^9, 
   3.796731174916327*^9}, {3.796731219126643*^9, 3.796731219819468*^9}, {
   3.7967312599192667`*^9, 3.796731260806615*^9}, {3.796731860623095*^9, 
   3.7967318615450172`*^9}, {3.796731895198543*^9, 3.7967318991659184`*^9}, {
   3.796731931746189*^9, 3.796731932583488*^9}, {3.7967320338533773`*^9, 
   3.796732034614265*^9}, {3.796732111898525*^9, 3.7967321124899797`*^9}, {
   3.7967322108410587`*^9, 3.796732238496217*^9}, {3.7967322728662*^9, 
   3.796732274030355*^9}, {3.796732407877798*^9, 3.7967324093484097`*^9}, {
   3.796732572137618*^9, 3.7967325726351757`*^9}, {3.796732618072493*^9, 
   3.7967326189114637`*^9}, {3.796732651378397*^9, 3.79673265258104*^9}, {
   3.796796383958893*^9, 3.796796385088187*^9}, {3.796796450019314*^9, 
   3.79679645085511*^9}, {3.79679652739351*^9, 3.796796528852014*^9}, {
   3.796796568146132*^9, 3.796796568854274*^9}, {3.796796606909319*^9, 
   3.796796607471548*^9}, {3.796797803875107*^9, 3.796797838623292*^9}, {
   3.7967978818851023`*^9, 3.796797927432725*^9}, {3.7967984025483227`*^9, 
   3.796798403501437*^9}, 3.7967984372812977`*^9, {3.79679848677136*^9, 
   3.796798493991514*^9}, {3.796798526517228*^9, 3.796798527132043*^9}, {
   3.79679855859958*^9, 3.796798560617899*^9}, {3.796798603582142*^9, 
   3.7967986504918203`*^9}, {3.7969664713538723`*^9, 3.796966478176613*^9}, 
   3.796966533056652*^9, {3.796966581506543*^9, 3.796966582037683*^9}, {
   3.796966718961096*^9, 3.7969667372259073`*^9}, {3.826606894523299*^9, 
   3.826607019922072*^9}, {3.826610926695557*^9, 3.826610928462062*^9}, {
   3.826610985561392*^9, 3.82661098614074*^9}, {3.8266110597796497`*^9, 
   3.826611090091045*^9}, {3.826611177556431*^9, 3.826611227777501*^9}, {
   3.8266112655346327`*^9, 3.826611292313616*^9}, {3.8266146064523*^9, 
   3.826614638090661*^9}, {3.82661470019516*^9, 3.8266148790334253`*^9}, {
   3.826614913936479*^9, 3.8266150721773977`*^9}, {3.826615159171698*^9, 
   3.826615179972373*^9}, {3.826617212752462*^9, 3.826617250509194*^9}, {
   3.8266173298415403`*^9, 3.8266173303463583`*^9}, {3.8266174975847807`*^9, 
   3.826617498076256*^9}, {3.82661781718678*^9, 3.8266178470466833`*^9}, {
   3.826617931438835*^9, 3.82661793236381*^9}, {3.8266179699647083`*^9, 
   3.826618032222053*^9}, {3.826618068517881*^9, 3.826618069141333*^9}, {
   3.82661810219973*^9, 3.826618151632724*^9}, {3.8266970695515213`*^9, 
   3.8266970764459057`*^9}, {3.826717156155199*^9, 3.826717163088606*^9}, {
   3.826718360705024*^9, 3.826718453236092*^9}, {3.8267185120386143`*^9, 
   3.8267185575904503`*^9}, {3.8267186121511507`*^9, 3.826718637437509*^9}, {
   3.826718725446211*^9, 3.826718756777364*^9}, {3.8267685507590847`*^9, 
   3.826768571798615*^9}, {3.8267686023884077`*^9, 3.826768743756795*^9}, 
   3.8267688347513533`*^9, {3.826768872024275*^9, 3.826768898751472*^9}, {
   3.826768945979527*^9, 3.826768972740347*^9}, {3.826769024858115*^9, 
   3.826769300554306*^9}, {3.826769330712113*^9, 3.826769425561097*^9}, {
   3.826769465027197*^9, 3.826769537515877*^9}, {3.826769582530724*^9, 
   3.826769686472657*^9}, {3.8267697483975563`*^9, 3.826770100675592*^9}, {
   3.826771070926352*^9, 3.826771150084673*^9}, {3.826771240884494*^9, 
   3.826771277862159*^9}, {3.847187490328908*^9, 3.847187490713872*^9}, 
   3.847786784840851*^9, {3.8477868275317917`*^9, 3.847786827864564*^9}, {
   3.8477869139331446`*^9, 3.847786941178939*^9}, {3.8477869722988806`*^9, 
   3.847787024915933*^9}, {3.850565139936673*^9, 3.8505652170309668`*^9}, {
   3.8623191069553747`*^9, 3.862319134160268*^9}, {3.862383428064279*^9, 
   3.862383435513981*^9}, 3.86238347391539*^9, 3.862452867420171*^9, 
   3.864706977226516*^9, {3.864707028901266*^9, 3.8647071774322233`*^9}, {
   3.864707218788224*^9, 3.8647073125175037`*^9}, {3.864707894299307*^9, 
   3.864707896275976*^9}, {3.8647109784680223`*^9, 3.86471113606211*^9}, {
   3.864711562425538*^9, 3.864711563192087*^9}, {3.864785877947678*^9, 
   3.864785907550506*^9}, {3.8647859399573174`*^9, 3.864785940393903*^9}, {
   3.86478618883784*^9, 3.864786208809987*^9}, {3.8647862420256*^9, 
   3.864786248423221*^9}, {3.864786292784031*^9, 3.864786294123871*^9}, {
   3.864786350752995*^9, 3.864786377787657*^9}, {3.8647864320666943`*^9, 
   3.864786432768343*^9}, {3.864786499828169*^9, 3.864786500686331*^9}, {
   3.864786602920507*^9, 3.864786603675933*^9}, {3.8647866576694927`*^9, 
   3.864786662911518*^9}, {3.864786762762929*^9, 3.864786764097632*^9}, {
   3.864786795517728*^9, 3.86478679651007*^9}, {3.874377018554274*^9, 
   3.874377019084628*^9}, {3.874377067986965*^9, 3.8743770697410183`*^9}, {
   3.874377470104459*^9, 3.8743774812472897`*^9}, {3.874377835867907*^9, 
   3.8743778914913*^9}, {3.874377929251405*^9, 3.874377931112936*^9}, {
   3.8743785422409763`*^9, 3.874378543739995*^9}, {3.874378591917406*^9, 
   3.874378592815403*^9}, {3.8743788821989822`*^9, 3.8743788824982224`*^9}, {
   3.874378932887826*^9, 3.874378933561967*^9}, {3.874379029317563*^9, 
   3.874379031869144*^9}, {3.8743790810041533`*^9, 3.8743790815601387`*^9}, {
   3.874379132717276*^9, 3.874379159431901*^9}, {3.874379459033431*^9, 
   3.874379459401616*^9}, {3.874379708894162*^9, 3.874379753520658*^9}, {
   3.874379803330632*^9, 3.874379814589018*^9}, {3.874379897663669*^9, 
   3.874379898057769*^9}, {3.874379982497436*^9, 3.8743799875002117`*^9}, {
   3.874380077844936*^9, 3.874380099085349*^9}, {3.874380413974368*^9, 
   3.874380429093989*^9}, {3.8743805962678328`*^9, 3.874380596849224*^9}, {
   3.87438080742307*^9, 3.8743808193845043`*^9}, {3.8743809497534*^9, 
   3.874380978629682*^9}, {3.8743811017732573`*^9, 3.87438110250318*^9}, {
   3.87438118974675*^9, 3.874381204442802*^9}, {3.874403344237649*^9, 
   3.874403356739065*^9}, {3.8744034563227987`*^9, 3.874403480175137*^9}, 
   3.8744035266680517`*^9, {3.874404089137089*^9, 3.874404092430604*^9}, {
   3.874404144707712*^9, 3.874404145596464*^9}, {3.874404272334405*^9, 
   3.874404289468926*^9}, {3.874404405611348*^9, 3.874404406140164*^9}, {
   3.874404447451457*^9, 3.874404484406891*^9}, {3.874404517698454*^9, 
   3.874404537464819*^9}, {3.874404576452077*^9, 3.874404602150683*^9}, {
   3.874404672787521*^9, 3.8744046734596453`*^9}, {3.874404759897172*^9, 
   3.874404763159466*^9}, 3.874404806477727*^9, {3.874404855255591*^9, 
   3.8744048556815777`*^9}, {3.874404898837438*^9, 3.8744049058361998`*^9}, {
   3.874406765162594*^9, 3.8744067911658707`*^9}, {3.874406950539577*^9, 
   3.874406950783187*^9}, {3.874407145567855*^9, 3.874407200439694*^9}, {
   3.874407269426203*^9, 3.874407285540382*^9}, {3.8744073487094727`*^9, 
   3.874407370094694*^9}, {3.87440767208032*^9, 3.874407686759089*^9}, {
   3.874407800949491*^9, 3.874407825238923*^9}, {3.8744080657393208`*^9, 
   3.8744080984258842`*^9}, {3.874408439363496*^9, 3.874408439999859*^9}, {
   3.8744084716611967`*^9, 3.874408472031911*^9}, {3.874408503072612*^9, 
   3.874408503546311*^9}, {3.8744085481332617`*^9, 3.874408562397876*^9}, {
   3.874408677761857*^9, 3.874408678324985*^9}, {3.874408873768936*^9, 
   3.874408874597767*^9}, {3.874408909333817*^9, 3.87440893720292*^9}, {
   3.87440910407372*^9, 3.874409105186829*^9}, {3.87440914073505*^9, 
   3.874409149585657*^9}, {3.874409230101062*^9, 3.874409231197949*^9}, {
   3.874409449124399*^9, 3.874409478086722*^9}, {3.874409609003901*^9, 
   3.874409609332959*^9}, {3.874409677987378*^9, 3.874409679064806*^9}, {
   3.8744097303935127`*^9, 3.874409730894867*^9}, {3.874409864863874*^9, 
   3.874409866519219*^9}, {3.87440990736242*^9, 3.874409908143416*^9}, {
   3.8744100014837112`*^9, 3.8744100043099747`*^9}, {3.874410076067252*^9, 
   3.874410076480492*^9}, {3.874410147896975*^9, 3.874410148385255*^9}, {
   3.8744102187410107`*^9, 3.874410219061191*^9}, {3.876305420389328*^9, 
   3.87630542115421*^9}, {3.876305621342361*^9, 3.8763056220562153`*^9}, {
   3.876305685672662*^9, 3.8763056869170322`*^9}, {3.876305716981618*^9, 
   3.876305718677381*^9}, {3.8763057930033903`*^9, 3.876305832313242*^9}, {
   3.876305889398048*^9, 3.8763058951000338`*^9}, {3.876305953454973*^9, 
   3.87630595413929*^9}, {3.87630601703089*^9, 3.876306017382283*^9}, {
   3.876306095418763*^9, 3.876306095828698*^9}, {3.876306196708879*^9, 
   3.876306197113866*^9}, {3.87630648675917*^9, 3.876306487151713*^9}, {
   3.8763065578148527`*^9, 3.876306558357707*^9}, {3.876307852654414*^9, 
   3.876307867256771*^9}, {3.876308021113456*^9, 3.8763080459157743`*^9}, {
   3.87630828921633*^9, 3.876308315365542*^9}, {3.876312624981773*^9, 
   3.876312627639097*^9}, {3.8763127283140087`*^9, 3.876312744135125*^9}, {
   3.87631284430567*^9, 3.8763128826187162`*^9}, {3.876312926973935*^9, 
   3.876312962768186*^9}, {3.876313134986724*^9, 3.876313178928816*^9}, {
   3.876313270627619*^9, 3.8763132838045177`*^9}, {3.876313332191766*^9, 
   3.876313342564577*^9}, {3.876717393822068*^9, 3.8767173942439537`*^9}, 
   3.876717531993312*^9, {3.876717626174801*^9, 3.876717631227765*^9}, {
   3.877558922258686*^9, 3.877558944188819*^9}, {3.877559090114058*^9, 
   3.87755914069554*^9}, {3.877559284588072*^9, 3.877559333495569*^9}, {
   3.877559372230729*^9, 3.877559383242133*^9}, {3.877559503604658*^9, 
   3.87755952708363*^9}, {3.8775596450316267`*^9, 3.877559669169964*^9}, {
   3.8775597829496803`*^9, 3.877559814591753*^9}, {3.877560249037171*^9, 
   3.87756028450721*^9}, {3.877560599193824*^9, 3.877560606356208*^9}, {
   3.877560652890264*^9, 3.877560689521039*^9}, {3.8775607301923857`*^9, 
   3.8775607440064096`*^9}, {3.877560779775607*^9, 3.8775608682509613`*^9}, {
   3.877560927462371*^9, 3.877560946182528*^9}, {3.87756152997092*^9, 
   3.877561531392206*^9}, {3.877561581556069*^9, 3.877561625465228*^9}, {
   3.877567157093466*^9, 3.87756716917624*^9}, {3.877567240034706*^9, 
   3.877567240950344*^9}, {3.8775672961298933`*^9, 3.87756730242653*^9}, {
   3.877567359987644*^9, 3.8775673897258587`*^9}, 3.877567442488709*^9, {
   3.877567479786021*^9, 3.877567480157436*^9}, {3.877567552996234*^9, 
   3.8775675566837893`*^9}, {3.8776704456456785`*^9, 
   3.8776705171953335`*^9}, {3.8776705593114853`*^9, 
   3.8776706253652368`*^9}, {3.877679614641201*^9, 3.877679622898487*^9}, 
   3.877679671961088*^9, {3.877680686597546*^9, 3.8776806871761045`*^9}, {
   3.8776807931200953`*^9, 3.877680793576024*^9}, {3.877682573692745*^9, 
   3.877682579887783*^9}, {3.879735902572488*^9, 3.879735927198811*^9}, {
   3.879736936585075*^9, 3.879736939486218*^9}, {3.879736971467328*^9, 
   3.879737042893005*^9}, {3.8797371367167*^9, 3.879737197575858*^9}, {
   3.879737234683526*^9, 3.879737257255481*^9}, {3.879737439675889*^9, 
   3.879737440804143*^9}, {3.879737542788665*^9, 3.8797375436161222`*^9}, {
   3.879737591580761*^9, 3.87973761596292*^9}, {3.879737666564167*^9, 
   3.87973766737383*^9}, {3.879737921692595*^9, 3.879737922311411*^9}, {
   3.879738041151679*^9, 3.879738053056561*^9}, {3.879738083977914*^9, 
   3.8797381149118233`*^9}, {3.8797382010791397`*^9, 3.879738235650844*^9}, {
   3.879738283196412*^9, 3.879738294465048*^9}, {3.879738458012492*^9, 
   3.8797384585909033`*^9}, {3.879738516043524*^9, 3.8797385168090353`*^9}, {
   3.879738549014434*^9, 3.879738596852652*^9}, {3.879738642871276*^9, 
   3.879738643496644*^9}, {3.879739552160104*^9, 3.879739578968154*^9}, {
   3.879739712058628*^9, 3.879739712867502*^9}, {3.882355035526404*^9, 
   3.882355118090501*^9}, {3.882355340724991*^9, 3.88235534185536*^9}, {
   3.88235554163319*^9, 3.882355546180181*^9}, {3.882355599334992*^9, 
   3.882355601559121*^9}, {3.882355644905904*^9, 3.882355645969541*^9}, {
   3.882355677662642*^9, 3.88235572848948*^9}, {3.882355956388941*^9, 
   3.882356018409678*^9}, {3.882356054210471*^9, 3.8823560555433493`*^9}, {
   3.882356114496275*^9, 3.882356198728546*^9}, {3.8823570481404047`*^9, 
   3.8823571901080723`*^9}, {3.882589078923485*^9, 3.882589201153062*^9}, {
   3.882589231736112*^9, 3.882589257584145*^9}, 3.882605496651626*^9, {
   3.882605568995679*^9, 3.882605570881275*^9}, {3.882605677396534*^9, 
   3.882605704113368*^9}, {3.882605748975279*^9, 3.882605812345188*^9}, {
   3.882606831963146*^9, 3.8826068618379183`*^9}, {3.8826068925787497`*^9, 
   3.88260689451858*^9}, {3.882931907435707*^9, 3.882931910706471*^9}, {
   3.882932245820414*^9, 3.882932282330584*^9}, {3.8829323298075027`*^9, 
   3.882932390700542*^9}, {3.882932448501665*^9, 3.882932494126213*^9}, {
   3.882938980534898*^9, 3.882938981344692*^9}, {3.88293911527135*^9, 
   3.88293911805165*^9}, {3.882939177926568*^9, 3.882939187256262*^9}, {
   3.882939242726939*^9, 3.882939243373867*^9}, {3.882939316230979*^9, 
   3.882939316753211*^9}, {3.882963006410307*^9, 3.882963006617566*^9}, {
   3.88296343488551*^9, 3.882963460856337*^9}, {3.882963524029525*^9, 
   3.882963538449032*^9}, {3.8832159309373493`*^9, 3.883215966791808*^9}, {
   3.883216314232642*^9, 3.883216315386883*^9}, {3.883216346468273*^9, 
   3.88321634820685*^9}, {3.8832164911749067`*^9, 3.883216527765065*^9}, {
   3.8832165635075502`*^9, 3.8832165901369257`*^9}, {3.883218887442151*^9, 
   3.883219066278167*^9}, {3.8832195687290983`*^9, 3.8832195764647937`*^9}, {
   3.8836395623786654`*^9, 3.883639593316204*^9}, {3.8836414563309913`*^9, 
   3.883641472754165*^9}, {3.88364263984908*^9, 3.8836426404756517`*^9}, {
   3.8838879873501577`*^9, 3.883887998646222*^9}, {3.8838881028873267`*^9, 
   3.8838881319387617`*^9}, {3.883888173124264*^9, 3.883888228216187*^9}, {
   3.8838890189077044`*^9, 3.8838890496889706`*^9}, {3.883889089110239*^9, 
   3.8838890953555136`*^9}, {3.8838893869408455`*^9, 
   3.8838895256747236`*^9}, {3.883889982201064*^9, 3.883890091339246*^9}, {
   3.883890158327944*^9, 3.883890182426996*^9}, {3.8838902317791605`*^9, 
   3.8838902484866095`*^9}, {3.8838903033824825`*^9, 
   3.8838903048654532`*^9}, {3.8838904577096815`*^9, 
   3.8838904657840047`*^9}, {3.8838905095733614`*^9, 
   3.8838906226961184`*^9}, {3.883891975892668*^9, 3.883891992949751*^9}, {
   3.883893328469571*^9, 3.883893396365059*^9}, {3.8838934561654453`*^9, 
   3.883893499804861*^9}, {3.88389400751709*^9, 3.8838940310054927`*^9}, {
   3.883894106403104*^9, 3.8838941341246605`*^9}, {3.883894328861535*^9, 
   3.8838943450962715`*^9}, {3.8838945965779114`*^9, 3.883894600628306*^9}, {
   3.88389478981545*^9, 3.883894790651063*^9}, {3.88389483414883*^9, 
   3.883894835490596*^9}, {3.883894988080919*^9, 3.8838950133598275`*^9}, 
   3.8839117005639696`*^9, {3.8839118723522816`*^9, 3.883911878432968*^9}, {
   3.8839119192446604`*^9, 3.883911929175087*^9}, {3.8839155377662244`*^9, 
   3.883915545535674*^9}, 3.883915601524152*^9, {3.884927052312626*^9, 
   3.884927054816425*^9}, {3.8849272139430275`*^9, 3.8849272298528037`*^9}, {
   3.8849274825391846`*^9, 3.884927483809958*^9}, {3.884927602415764*^9, 
   3.8849276184876847`*^9}, {3.884929982087688*^9, 3.884929983205032*^9}, {
   3.8849327596640587`*^9, 3.884932760603389*^9}, {3.884933307026065*^9, 
   3.8849333098926697`*^9}, {3.884939553222355*^9, 3.884939627767661*^9}, {
   3.8849396939886675`*^9, 3.884939703086158*^9}, {3.884939738601097*^9, 
   3.8849397398539677`*^9}, 3.8849398071305733`*^9, {3.8849398458761015`*^9, 
   3.884939902426296*^9}, {3.8849399766624537`*^9, 3.88494000279943*^9}, {
   3.8849401671760693`*^9, 3.8849401685659647`*^9}, {3.8849407599878054`*^9, 
   3.884940793785606*^9}, {3.8849409951864557`*^9, 3.8849410068452363`*^9}, {
   3.8849410504947233`*^9, 3.884941325168646*^9}, {3.8849431757833505`*^9, 
   3.8849431788860407`*^9}, {3.884943376034837*^9, 3.884943395496915*^9}, {
   3.88494345487226*^9, 3.884943553790366*^9}, {3.88494361075471*^9, 
   3.884943658694199*^9}, {3.8849436958303432`*^9, 3.8849437113657775`*^9}, {
   3.884943853439436*^9, 3.884943951500882*^9}, {3.884944062373579*^9, 
   3.8849440654854326`*^9}, {3.8849441833197603`*^9, 
   3.8849443567497163`*^9}, {3.8849459053756065`*^9, 
   3.8849459084695883`*^9}, {3.884945945004721*^9, 3.884945948482488*^9}, {
   3.8849471135705924`*^9, 3.8849471140723705`*^9}, {3.884965008414546*^9, 
   3.884965376748871*^9}, {3.884965450820256*^9, 3.8849655470941877`*^9}, {
   3.884965584521477*^9, 3.884965584906248*^9}, {3.884969843062837*^9, 
   3.884970234923013*^9}, {3.887083167434225*^9, 3.887083195908745*^9}, {
   3.88708408138459*^9, 3.887084085343897*^9}, {3.8870842175063667`*^9, 
   3.887084314583115*^9}, {3.887084552062747*^9, 3.8870845920996637`*^9}, {
   3.8870850587752175`*^9, 3.887085059365*^9}, {3.887085664160859*^9, 
   3.887085668097189*^9}, {3.890809301543406*^9, 3.8908093948163*^9}, {
   3.895303326340123*^9, 3.895303329899403*^9}, {3.897991901543907*^9, 
   3.8979919021758213`*^9}, {3.897997292091186*^9, 3.897997296652246*^9}, {
   3.898676492914647*^9, 3.898676505631259*^9}, {3.898676574337928*^9, 
   3.898676942643486*^9}, {3.898676974852075*^9, 3.8986769756353827`*^9}, {
   3.898677012911879*^9, 3.8986770521518993`*^9}, {3.898677086958209*^9, 
   3.898677346803164*^9}, {3.8986774320883617`*^9, 3.8986774687319193`*^9}, {
   3.89867754953439*^9, 3.898677550083405*^9}, {3.89867760177109*^9, 
   3.8986776438099413`*^9}, {3.898677691009343*^9, 3.898677691857979*^9}, 
   3.898677727615922*^9, {3.898677774969522*^9, 3.898677798397559*^9}, {
   3.898677847770974*^9, 3.898677856741837*^9}, {3.898677935248745*^9, 
   3.8986779359430857`*^9}, {3.898755529286405*^9, 3.898755598720381*^9}, {
   3.8987556682001677`*^9, 3.89875576133248*^9}, {3.898755939551538*^9, 
   3.898756237368765*^9}, {3.8987562689479313`*^9, 3.898756317318595*^9}, {
   3.8987563834144373`*^9, 3.898756384619794*^9}, {3.898756447099801*^9, 
   3.8987564480340223`*^9}, {3.8987566279618998`*^9, 3.898756795338587*^9}, {
   3.898756935308943*^9, 3.898756943374774*^9}, {3.898757625698806*^9, 
   3.898757626710743*^9}, {3.898757692599739*^9, 3.898757779782769*^9}, {
   3.8987578791010036`*^9, 3.898757915483829*^9}, {3.8987579488643503`*^9, 
   3.898757953634954*^9}, {3.8987579927704153`*^9, 3.898758055445784*^9}, {
   3.8987683380850773`*^9, 3.898768415795308*^9}, {3.898933939537983*^9, 
   3.898934096438549*^9}, {3.9097450772198143`*^9, 3.909745103586606*^9}, {
   3.9097451554460106`*^9, 3.9097451967043543`*^9}, {3.9097452272491407`*^9, 
   3.9097452429959917`*^9}, {3.909749782327423*^9, 3.909749800547068*^9}, {
   3.9097498347476263`*^9, 3.909749848643791*^9}, {3.9097499746545277`*^9, 
   3.9097500040938945`*^9}, {3.9097500755231805`*^9, 
   3.9097501002210503`*^9}, {3.9097501597328463`*^9, 
   3.9097501817880917`*^9}, {3.909750244228856*^9, 3.9097502692770357`*^9}, {
   3.909750312741002*^9, 3.9097503740019894`*^9}, {3.9097504604009295`*^9, 
   3.9097504820099697`*^9}, {3.909750618942827*^9, 3.9097506199628544`*^9}, {
   3.909751171853617*^9, 3.909751288928584*^9}, {3.909827059720033*^9, 
   3.9098271116862907`*^9}, {3.90998041312388*^9, 3.909980455061823*^9}, 
   3.910068827372164*^9, {3.9100689376726217`*^9, 3.910068972585406*^9}, {
   3.9100690485774207`*^9, 3.910069107020605*^9}, {3.9100691973537645`*^9, 
   3.9100691988212833`*^9}, {3.910069421443222*^9, 3.91006943975084*^9}, {
   3.9100699854083867`*^9, 3.910070085545856*^9}, {3.911723115689994*^9, 
   3.9117231176613693`*^9}, {3.912049215650854*^9, 3.9120492165217314`*^9}, {
   3.912054451908626*^9, 3.9120544873705626`*^9}, {3.912054527300249*^9, 
   3.912054528965108*^9}, {3.9120546918316107`*^9, 3.9120547409320006`*^9}, {
   3.912054949563472*^9, 3.912055028602454*^9}, {3.912055188804249*^9, 
   3.91205525013015*^9}, {3.912055506166196*^9, 3.9120555157801433`*^9}, {
   3.912055585643099*^9, 3.9120555881161623`*^9}, {3.9120556490954657`*^9, 
   3.912055655438073*^9}, 3.9120558161753817`*^9, {3.9120558473803825`*^9, 
   3.9120558487063417`*^9}, 3.912056038372471*^9, {3.912056095228444*^9, 
   3.912056104714924*^9}, {3.9120562319277897`*^9, 3.912056264802334*^9}, {
   3.9120563625632153`*^9, 3.9120563875149975`*^9}, {3.912056442299606*^9, 
   3.91205644256334*^9}, {3.9120565155251145`*^9, 3.9120565159301424`*^9}, {
   3.9120565554459*^9, 3.912056583178759*^9}, {3.9120566298745837`*^9, 
   3.912056631706452*^9}, {3.912056864117752*^9, 3.912056918684428*^9}, {
   3.9120569807065983`*^9, 3.9120570311302347`*^9}, 3.912057173768146*^9, {
   3.9120577994076505`*^9, 3.9120578523056374`*^9}, {3.9120578911830225`*^9, 
   3.9120579548094425`*^9}, {3.9120580005320415`*^9, 
   3.9120580313389287`*^9}, {3.912058204944909*^9, 3.912058350953248*^9}, {
   3.9120586539932413`*^9, 3.9120586827038116`*^9}, {3.9120596243849525`*^9, 
   3.912059626588793*^9}, {3.912059722159072*^9, 3.9120597289515963`*^9}, {
   3.912059775979518*^9, 3.9120597787077904`*^9}, {3.9120598136742887`*^9, 
   3.9120598512873654`*^9}, {3.912059915494443*^9, 3.912060043673927*^9}, {
   3.914666471971696*^9, 3.914666543624612*^9}, {3.9146666302742157`*^9, 
   3.91466667329607*^9}, {3.960882672140068*^9, 3.960882693624892*^9}, {
   3.960882742047303*^9, 3.9608827757434883`*^9}, {3.9608830539383793`*^9, 
   3.9608830578394985`*^9}, {3.9611168439561224`*^9, 
   3.9611168462266746`*^9}, {3.9611172601083727`*^9, 3.96111727127316*^9}, {
   3.961117327824735*^9, 3.961117332042052*^9}, 3.961117735400451*^9, 
   3.961751838621491*^9},
 FontSize->16,ExpressionUUID->"bcd716ee-7554-4a9f-a92b-f23cc0c70c2c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "x0", ",", "cx", ",", "\[Phi]", ",", "Y0", ",", "I0", ",", "\[Kappa]", ",",
     "\[Rho]", ",", "\[Delta]", ",", "\[Xi]", ",", "\[Beta]", ",", 
    "\[Epsilon]", ",", "carbonprice0", ",", "\[Tau]0", ",", "\[Gamma]", ",", 
    "\[Chi]", ",", "Ystar", ",", "\[Psi]", ",", "c1", ",", "c2", ",", 
    "\[Mu]star", ",", "\[Tau]ov"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x0", "=", "8198.569"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cx", "=", "60"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Phi]", "=", "2.94"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Y0", "=", "886.072"}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"I0", "=", "41.45"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Kappa]", "=", "0.426"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]", "=", "0.03"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Delta]", "=", "0.03"}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Xi]", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", 
   RowBox[{"-", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"1", "-", "\[Xi]"}], "]"}], "/", 
      RowBox[{"Log", "[", "2", "]"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Epsilon]", "=", "0.3"}], ";"}], "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"carbonprice0", "=", "20"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Tau]0", "=", 
    RowBox[{"carbonprice0", "*", "\[Kappa]"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", " ", "=", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x0", "+", 
       RowBox[{"\[Phi]", " ", "Y0"}]}], ")"}], 
     RowBox[{"1", "/", "\[Epsilon]"}]], " ", 
    RowBox[{"(", 
     RowBox[{"\[Tau]0", "+", "cx"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Chi]", "=", "1.005"}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ystar", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x0", "/", "\[Phi]"}], "+", "Y0"}], ")"}], "*", "\[Chi]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Psi]", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq", "=", 
   RowBox[{"FindRoot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Gamma]", " ", 
            RowBox[{
             SuperscriptBox["\[Phi]", 
              RowBox[{"1", "-", 
               RowBox[{"1", "/", "\[Epsilon]"}]}]], "/", 
             RowBox[{"(", 
              RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}]}]}], ")"}], "  ", 
          SuperscriptBox["Ystar", 
           RowBox[{
            RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}], "-", 
         RowBox[{"c2", " ", "\[Delta]", " ", "Ystar"}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"\[Beta]", " ", 
             RowBox[{"\[Delta]", "/", 
              RowBox[{"(", 
               RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}]}]}]}], ")"}], "c1", 
          " ", 
          SuperscriptBox["Ystar", 
           RowBox[{"-", "\[Beta]"}]]}]}], "\[Equal]", "0"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Psi]", " ", "c1", " ", 
          SuperscriptBox["Y0", 
           RowBox[{"-", "\[Beta]"}]]}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"c2", "/", "2"}], ")"}], "I0"}]}], "\[Equal]", "0"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"c1", ",", "50000"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"c2", ",", "20"}], "}"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c1", "=", 
   RowBox[{"Evaluate", "[", 
    RowBox[{"c1", "/.", 
     RowBox[{"eq", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c2", "=", 
   RowBox[{"Evaluate", "[", 
    RowBox[{"c2", "/.", 
     RowBox[{"eq", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<c1=  \>\"", ",", "c1"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<c2 =  \>\"", ",", "c2"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Mu]star", "=", 
   RowBox[{
    RowBox[{"c2", " ", "\[Delta]", " ", "Ystar"}], "+", 
    RowBox[{"c1", " ", 
     SuperscriptBox["Ystar", 
      RowBox[{"-", "\[Beta]"}]]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Tau]ov", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"\[Tau]0", "+", "cx"}], ")"}], " ", 
      SuperscriptBox["\[Chi]", 
       RowBox[{
        RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}], "-", "cx"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<Threshold on carbon tax implying permanent FIP: \[Tau]ov = \>\"", 
     ",", 
     RowBox[{"\[Tau]ov", "/", "\[Kappa]"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<Business as usual scenario (constant carbon tax at its initial value \
at \>\"", ",", "carbonprice0", ",", "\"\<)\>\""}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Clear", "[", 
    RowBox[{
    "Tend", ",", "\[Mu]dotBAU1", ",", "\[Mu]dotBAU2", ",", "YdotBAU12", ",", 
     "deY", ",", "de\[Mu]", ",", "solBAU", ",", "tBAU", ",", "tmax", ",", 
     "TBAU", ",", "Yb", ",", "\[Mu]b", ",", "Yf", ",", "\[Mu]f", ",", "x", 
     ",", "XBAU"}], "]"}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Choose", " ", "the", " ", "time", " ", "horizon", " ", "for", " ", 
     "backward", " ", "shooting", " ", "\"\<Tend\>\"", " ", "to", " ", 
     "ensure", " ", "that", " ", "Y", " ", "reaches", " ", "Y0"}], ",", " ", 
    RowBox[{
    "while", " ", "minimizing", " ", "the", " ", "residual", " ", 
     "\"\<tmax\>\""}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Tend", "=", "141.7"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Mu]dotBAU1", "[", 
    RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}], " ", "\[Mu]"}], " ", "-", 
    RowBox[{"\[Beta]", "  ", "c1", " ", 
     SuperscriptBox["y", 
      RowBox[{
       RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"\[Mu]", "-", 
        RowBox[{"c1", " ", 
         SuperscriptBox["y", 
          RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"cx", "+", "\[Tau]0"}], ")"}], " ", "\[Phi]"}]}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Mu]dotBAU2", "[", 
    RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}], " ", "\[Mu]"}], " ", "-", 
    " ", 
    RowBox[{"\[Beta]", " ", "c1", " ", 
     SuperscriptBox["y", 
      RowBox[{
       RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"\[Mu]", "-", 
        RowBox[{"c1", " ", 
         SuperscriptBox["y", 
          RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], "-", " ", 
    RowBox[{"\[Gamma]", " ", 
     SuperscriptBox["\[Phi]", 
      RowBox[{"1", "-", 
       RowBox[{"1", "/", "\[Epsilon]"}]}]], "  ", 
     SuperscriptBox["y", 
      RowBox[{
       RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}]}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"YdotBAU12", "[", 
     RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "/", "c2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"\[Mu]", "-", " ", 
        RowBox[{"c1", " ", 
         SuperscriptBox["y", 
          RowBox[{"-", "\[Beta]"}]]}]}], ")"}]}], "-", 
     RowBox[{"\[Delta]", " ", "y"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"deY", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Y", "'"}], "[", "t", "]"}], "\[Equal]", 
    RowBox[{"-", 
     RowBox[{"YdotBAU12", "[", 
      RowBox[{
       RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
       RowBox[{"Y", "[", "t", "]"}]}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"de\[Mu]", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Mu]", "'"}], "[", "t", "]"}], "\[Equal]", 
     RowBox[{"-", 
      RowBox[{"Piecewise", "[", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", " ", 
          RowBox[{
           RowBox[{"\[Mu]dotBAU1", "[", 
            RowBox[{
             RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
             RowBox[{"Y", "[", "t", "]"}]}], "]"}], ",", 
           RowBox[{
            RowBox[{"Y", "[", "t", "]"}], "\[LessEqual]", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "/", "\[Phi]"}], ")"}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Gamma]", "/", 
                RowBox[{"(", 
                 RowBox[{"cx", "+", "\[Tau]0"}], ")"}]}], ")"}], 
              "\[Epsilon]"]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\[Mu]dotBAU2", "[", 
            RowBox[{
             RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
             RowBox[{"Y", "[", "t", "]"}]}], "]"}], ",", 
           RowBox[{
            RowBox[{"Y", "[", "t", "]"}], ">", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "/", "\[Phi]"}], ")"}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Gamma]", "/", 
                RowBox[{"(", 
                 RowBox[{"cx", "+", "\[Tau]0"}], ")"}]}], ")"}], 
              "\[Epsilon]"]}]}]}], " ", "}"}]}], "\[IndentingNewLine]", "}"}],
        "]"}]}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"solBAU", "=", 
    RowBox[{"NDSolve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"deY", ",", "de\[Mu]", ",", 
        RowBox[{
         RowBox[{"Y", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Ystar", 
          RowBox[{"(", 
           RowBox[{"1", "-", " ", 
            SuperscriptBox["10", 
             RowBox[{"-", "3"}]]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"\[Mu]", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"\[Mu]star", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            SuperscriptBox["10", 
             RowBox[{"-", "3"}]]}], ")"}]}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Y", ",", "\[Mu]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "Tend"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Method", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<EventLocator\>\"", ",", "\[IndentingNewLine]", 
         RowBox[{"\"\<Event\>\"", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"Y", "[", "t", "]"}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "/", "\[Phi]"}], ")"}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Gamma]", "/", 
                 RowBox[{"(", 
                  RowBox[{"cx", "+", "\[Tau]0"}], ")"}]}], ")"}], 
               "\[Epsilon]"]}]}], ",", 
            RowBox[{
             RowBox[{"Y", "[", "t", "]"}], "-", "Y0"}]}], "}"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<EventAction\>\"", "\[RuleDelayed]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"tBAU", "=", 
             RowBox[{"Tend", "-", "t"}]}], ",", 
            RowBox[{"tmax", "=", 
             RowBox[{"Tend", "-", "t"}]}]}], "}"}]}]}], "}"}]}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TBAU", "=", 
    RowBox[{"tBAU", "-", "tmax"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\<Precision of time horizon for backward shooting: tmax = \>\"", ",", 
    "tmax"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Fossil phase out date: TBAU = \>\"", ",", "TBAU"}], "]"}], 
   ";"}], "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Yb", "[", "t_", "]"}], "=", 
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{"Y", "[", "t", "]"}], "/.", 
     RowBox[{"solBAU", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[Mu]b", "[", "t_", "]"}], "=", 
    RowBox[{"Evaluate", "[", 
     RowBox[{
      RowBox[{"\[Mu]", "[", "t", "]"}], "/.", 
      RowBox[{"solBAU", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Yf", "[", "t_", "]"}], "=", 
   RowBox[{"Yb", "[", 
    RowBox[{"Tend", "-", "tmax", "-", "t"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[Mu]f", "[", "t_", "]"}], "=", 
    RowBox[{"\[Mu]b", "[", 
     RowBox[{"Tend", "-", "tmax", "-", "t"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"x", "[", "t_", "]"}], "=", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Gamma]", "/", 
       RowBox[{"(", 
        RowBox[{"cx", "+", "\[Tau]0"}], ")"}]}], ")"}], "\[Epsilon]"], "-", 
    RowBox[{"\[Phi]", " ", 
     RowBox[{"Yf", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"XBAU", "=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{"x", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "TBAU"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<Cumulative emissions: XBAU = \>\"", ",", "XBAU"}], "]"}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.670751262663126*^9, 3.6707512716950045`*^9}, {
   3.6707571857820654`*^9, 3.670757725982362*^9}, {3.6707577720322423`*^9, 
   3.6707580313046722`*^9}, {3.670758110660347*^9, 3.6707582165148106`*^9}, {
   3.6707584462677717`*^9, 3.6707584879353724`*^9}, {3.670758525125772*^9, 
   3.670758677631154*^9}, {3.670758712667856*^9, 3.670758727659072*^9}, {
   3.6707587801829247`*^9, 3.6707590830476985`*^9}, {3.6707591682516212`*^9, 
   3.670759340889721*^9}, 3.676264331560053*^9, {3.6762643664095592`*^9, 
   3.676264388701388*^9}, {3.6762644454371333`*^9, 3.6762644949190645`*^9}, 
   3.676265225111653*^9, {3.6762653117372646`*^9, 3.676265317836708*^9}, 
   3.676265614494358*^9, {3.6762676904442005`*^9, 3.676267691894973*^9}, {
   3.676267761314638*^9, 3.6762677738723965`*^9}, {3.6762678074117517`*^9, 
   3.6762678324492702`*^9}, {3.676267911227755*^9, 3.676268044511592*^9}, {
   3.6762689986828485`*^9, 3.6762690074811354`*^9}, {3.67626910855224*^9, 
   3.6762691554140387`*^9}, {3.67626925364598*^9, 3.676269283628795*^9}, {
   3.6762693304749947`*^9, 3.676269352501912*^9}, {3.676269430064118*^9, 
   3.6762694664116516`*^9}, {3.676269682126686*^9, 3.6762697188042192`*^9}, {
   3.6762697794718413`*^9, 3.676269781000622*^9}, {3.6767818135145655`*^9, 
   3.6767818299725943`*^9}, {3.676781877178277*^9, 3.676782013553407*^9}, {
   3.6767820550972805`*^9, 3.676782245158105*^9}, {3.6767822829579716`*^9, 
   3.676782316747631*^9}, {3.6767823678845205`*^9, 3.6767824042637844`*^9}, {
   3.6767826046932263`*^9, 3.676782628702668*^9}, {3.6767826960635867`*^9, 
   3.6767826995423927`*^9}, {3.6767827454220734`*^9, 
   3.6767827928773565`*^9}, {3.6767828909674163`*^9, 
   3.6767829167708616`*^9}, {3.6767829980626044`*^9, 3.67678320181105*^9}, {
   3.6767832453351264`*^9, 3.6767832512475367`*^9}, {3.6767833203868585`*^9, 
   3.676783367608141*^9}, {3.6767834429361567`*^9, 3.6767836327260904`*^9}, {
   3.676783889237341*^9, 3.67678391145178*^9}, {3.676783947300643*^9, 
   3.6767839826347046`*^9}, {3.6767840141935606`*^9, 3.67678403531608*^9}, 
   3.676784201316972*^9, {3.676784335505494*^9, 3.676784361931941*^9}, {
   3.676784824707841*^9, 3.67678501748967*^9}, {3.6767851884191704`*^9, 
   3.676785228948041*^9}, 3.676785259024894*^9, {3.6767853194292*^9, 
   3.6767856309552307`*^9}, 3.676785727684484*^9, {3.676785769086957*^9, 
   3.6767857923933973`*^9}, 3.676785830644665*^9, {3.6767859019211903`*^9, 
   3.6767859726620045`*^9}, {3.6767861158430567`*^9, 
   3.6767862150124307`*^9}, {3.6767862720854187`*^9, 
   3.6767862821630363`*^9}, {3.6767865151504455`*^9, 
   3.6767865209536552`*^9}, {3.676786562150816*^9, 3.676786573632436*^9}, {
   3.676786751254348*^9, 3.676786752003149*^9}, {3.6767867885384135`*^9, 
   3.676786856538933*^9}, {3.676786886815276*^9, 3.6767868874080777`*^9}, {
   3.67678692891975*^9, 3.6767869294813514`*^9}, {3.676786979120639*^9, 
   3.6767869956254673`*^9}, {3.6767870404599466`*^9, 3.676787041427148*^9}, {
   3.676787088944832*^9, 3.676787143326527*^9}, {3.6767871742262683`*^9, 
   3.6767872414467864`*^9}, {3.676787506710343*^9, 3.6767875371927967`*^9}, 
   3.6767876487641926`*^9, {3.6767876904006653`*^9, 3.6767877003066826`*^9}, {
   3.6767877468727646`*^9, 3.6767878194871817`*^9}, {3.676787901948927*^9, 
   3.6767879511202126`*^9}, {3.676787996266692*^9, 3.676788108689172*^9}, {
   3.6767984764760714`*^9, 3.67679850390092*^9}, {3.676798701898559*^9, 
   3.6767987031933613`*^9}, {3.676798793876321*^9, 3.676798820396367*^9}, {
   3.676798883794879*^9, 3.6767989012981095`*^9}, {3.6767989778319354`*^9, 
   3.6767989975815697`*^9}, {3.676816436999343*^9, 3.676816453613366*^9}, {
   3.67681652720547*^9, 3.6768165282254715`*^9}, {3.6768822981645145`*^9, 
   3.6768823341069775`*^9}, 3.676882384245466*^9, {3.6768824210874205`*^9, 
   3.6768825120043807`*^9}, 3.6768825679616785`*^9, {3.6768828350732374`*^9, 
   3.67688283652404*^9}, {3.676882889080532*^9, 3.6768830203852525`*^9}, {
   3.6768830545961123`*^9, 3.67688307565615*^9}, {3.6781850229574013`*^9, 
   3.6781850442982388`*^9}, {3.678185317096918*^9, 3.6781853180017195`*^9}, {
   3.6781854089664793`*^9, 3.67818543770173*^9}, {3.6781854857030144`*^9, 
   3.678185487169417*^9}, {3.6781856754773474`*^9, 3.6781857222774296`*^9}, {
   3.678185823942808*^9, 3.678185855486064*^9}, 3.67818588754412*^9, {
   3.6781859338294015`*^9, 3.6781859743738728`*^9}, {3.6781860140291424`*^9, 
   3.6781860176951485`*^9}, {3.6781860497064047`*^9, 3.678186056476817*^9}, {
   3.6781861332445517`*^9, 3.6781862013074713`*^9}, {3.678440012133279*^9, 
   3.6784400130380807`*^9}, {3.6784400817562017`*^9, 
   3.6784401117394543`*^9}, {3.678440299236183*^9, 3.678440343961462*^9}, {
   3.678440746644969*^9, 3.678440795909856*^9}, {3.6784410750723457`*^9, 
   3.6784410753687468`*^9}, {3.6872221332742443`*^9, 3.687222169856309*^9}, {
   3.6934841047914743`*^9, 3.6934842315715876`*^9}, 3.693484270103655*^9, {
   3.6934843294617596`*^9, 3.6934843386657753`*^9}, {3.693484409021899*^9, 
   3.6934845275525937`*^9}, {3.6934846015747237`*^9, 
   3.6934846751756535`*^9}, {3.6934848033999653`*^9, 3.6934848461782403`*^9}, 
   3.693484904647143*^9, {3.6934849755336676`*^9, 3.693485084832741*^9}, {
   3.693485123645609*^9, 3.693485131055622*^9}, {3.6934851655316825`*^9, 
   3.693485244670622*^9}, {3.6934856149259577`*^9, 3.693485696015582*^9}, {
   3.6934857509120784`*^9, 3.69348576916411*^9}, {3.69348580888178*^9, 
   3.693485915789768*^9}, {3.693486329848663*^9, 3.6934863394894795`*^9}, {
   3.6935432280295544`*^9, 3.693543331566936*^9}, {3.693543395823449*^9, 
   3.6935434394421253`*^9}, {3.69354348775541*^9, 3.693543514837058*^9}, {
   3.693543567627551*^9, 3.693543632492465*^9}, {3.69354366944893*^9, 
   3.6935437296972356`*^9}, {3.6935438475554423`*^9, 3.693543931046789*^9}, {
   3.693544603171178*^9, 3.693544641625245*^9}, {3.69354469007893*^9, 
   3.6935448362634687`*^9}, {3.6935450674558744`*^9, 3.693545077315092*^9}, {
   3.6935451126335545`*^9, 3.693545150470902*^9}, {3.6935452310762434`*^9, 
   3.693545272697117*^9}, {3.693545324960209*^9, 3.6935455512436066`*^9}, {
   3.69354559871449*^9, 3.69354568980305*^9}, {3.693545961420306*^9, 
   3.69354598159746*^9}, {3.6935462818133297`*^9, 3.6935463435473475`*^9}, {
   3.6935464430911226`*^9, 3.6935464678171663`*^9}, {3.6935465046020308`*^9, 
   3.6935465231972632`*^9}, {3.693547576528993*^9, 3.6935475849218082`*^9}, {
   3.693547692811598*^9, 3.6935477200960455`*^9}, {3.693547751530101*^9, 
   3.6935477945705767`*^9}, {3.6935478299202385`*^9, 3.693547969290883*^9}, {
   3.693548003129343*^9, 3.6935480173565674`*^9}, {3.693548069398259*^9, 
   3.6935481054031224`*^9}, {3.6935673945017843`*^9, 3.693567544137247*^9}, {
   3.693567580672511*^9, 3.6935676025125494`*^9}, {3.6935676481270294`*^9, 
   3.693567649531032*^9}, {3.69356770512953*^9, 3.693567783114066*^9}, {
   3.6935678536573906`*^9, 3.693567883625043*^9}, {3.693567914372697*^9, 
   3.6935680358657103`*^9}, {3.6935680952706146`*^9, 
   3.6935681020722265`*^9}, {3.693568142039497*^9, 3.6935681853295727`*^9}, {
   3.693570592792536*^9, 3.693570666596266*^9}, {3.69357070915314*^9, 
   3.6935707166411533`*^9}, {3.693570861471808*^9, 3.69357092538612*^9}, {
   3.6935709563063745`*^9, 3.6935709680375953`*^9}, {3.6935712905719523`*^9, 
   3.693571293816758*^9}, {3.6935713355000315`*^9, 3.6935713406480403`*^9}, {
   3.693571410302163*^9, 3.6935714688958654`*^9}, {3.693571514666346*^9, 
   3.6935715214533577`*^9}, {3.693613521003137*^9, 3.6936135525727415`*^9}, {
   3.6936136444074907`*^9, 3.693613677418774*^9}, {3.693613731566362*^9, 
   3.693613752254079*^9}, {3.6936138492152643`*^9, 3.693613860346358*^9}, {
   3.693613929823763*^9, 3.6936139382038507`*^9}, 3.693614165649536*^9, {
   3.693614248609654*^9, 3.693614248780197*^9}, {3.6936142808150845`*^9, 
   3.6936142812461305`*^9}, {3.693614368744974*^9, 3.6936143688278685`*^9}, {
   3.69361440890644*^9, 3.69361443509452*^9}, 3.6936144721679087`*^9, {
   3.693614505043395*^9, 3.6936145054099674`*^9}, {3.6936147925726423`*^9, 
   3.6936147929449635`*^9}, {3.6936148693823366`*^9, 
   3.6936149298991976`*^9}, {3.6936476460255857`*^9, 3.6936476541532*^9}, {
   3.6936477390485487`*^9, 3.6936477394385495`*^9}, {3.6936489728138638`*^9, 
   3.6936489944043016`*^9}, {3.693827079603241*^9, 3.693827086919654*^9}, {
   3.6954602067909374`*^9, 3.695460245900206*^9}, {3.695463799683567*^9, 
   3.695463805393177*^9}, {3.6960577672106895`*^9, 3.6960578150715733`*^9}, 
   3.696662118200159*^9, {3.6974989857392635`*^9, 3.69749898634927*^9}, {
   3.6978530182570724`*^9, 3.697853023857473*^9}, {3.698542408047197*^9, 
   3.6985424084271927`*^9}, {3.698613941895917*^9, 3.6986139422759132`*^9}, {
   3.7010668228186283`*^9, 3.701066828237135*^9}, {3.701497117070485*^9, 
   3.701497151512701*^9}, {3.70149722497158*^9, 3.7014972262177877`*^9}, {
   3.7029671088318586`*^9, 3.7029671124618587`*^9}, {3.7032283117713823`*^9, 
   3.703228340085432*^9}, {3.721582538142764*^9, 3.721582633951579*^9}, {
   3.7215826721842012`*^9, 3.721582673826776*^9}, {3.7215827079504004`*^9, 
   3.721582736924955*^9}, {3.721583336989194*^9, 3.721583338516305*^9}, 
   3.72391076075486*^9, {3.723910830335164*^9, 3.723910838498369*^9}, {
   3.724050044866043*^9, 3.724050046159108*^9}, {3.728035508982576*^9, 
   3.728035516219651*^9}, {3.728035546253584*^9, 3.728035581561035*^9}, {
   3.728106307828312*^9, 3.728106391803055*^9}, {3.730634204508713*^9, 
   3.7306343286675215`*^9}, {3.730642129643343*^9, 3.730642130703637*^9}, {
   3.730642173945459*^9, 3.730642174980401*^9}, {3.7306422240994883`*^9, 
   3.7306422258776827`*^9}, {3.730642265854638*^9, 3.730642267137167*^9}, {
   3.730642310561317*^9, 3.730642311371129*^9}, {3.7306423451084003`*^9, 
   3.730642348930004*^9}, {3.73064239206772*^9, 3.730642399293949*^9}, {
   3.730642437169807*^9, 3.730642443154512*^9}, {3.730642516680331*^9, 
   3.730642517306563*^9}, {3.730642559057053*^9, 3.730642560361334*^9}, {
   3.730642609748269*^9, 3.730642613391408*^9}, {3.7306426483891487`*^9, 
   3.7306426489282417`*^9}, {3.73064268653338*^9, 3.730642687486306*^9}, {
   3.7306436815407887`*^9, 3.730643682220921*^9}, {3.7306437263026037`*^9, 
   3.730643727345776*^9}, {3.730643771696148*^9, 3.730643772459749*^9}, {
   3.730643918725091*^9, 3.730643919778508*^9}, {3.730643964588471*^9, 
   3.7306439655933723`*^9}, {3.7306439972053843`*^9, 3.730644000314249*^9}, {
   3.730644039020733*^9, 3.730644039753038*^9}, {3.730644072491724*^9, 
   3.7306440736229267`*^9}, {3.7306441270461082`*^9, 3.73064415322465*^9}, {
   3.730644201203002*^9, 3.730644203568626*^9}, {3.73064447553526*^9, 
   3.7306445047650547`*^9}, {3.730644545947328*^9, 3.730644546746149*^9}, {
   3.7306445982748632`*^9, 3.7306446022899647`*^9}, {3.7306446367296343`*^9, 
   3.730644637593005*^9}, {3.730644670408227*^9, 3.730644696025078*^9}, {
   3.730644737785084*^9, 3.730644739235012*^9}, {3.730648500553602*^9, 
   3.73064850818226*^9}, {3.7306485753958406`*^9, 3.7306485842255774`*^9}, {
   3.7306488382380733`*^9, 3.730648840696993*^9}, {3.730648968060107*^9, 
   3.730648968828146*^9}, {3.730649871433724*^9, 3.7306498773125973`*^9}, {
   3.730649937998598*^9, 3.730649938622899*^9}, {3.730649977577483*^9, 
   3.730649978216008*^9}, {3.730650046956876*^9, 3.7306500475057573`*^9}, {
   3.730650203158321*^9, 3.730650204637803*^9}, {3.730650321159915*^9, 
   3.7306503242257833`*^9}, {3.730650790784133*^9, 3.7306507919722443`*^9}, {
   3.7306509703598337`*^9, 3.730650971417018*^9}, {3.730651019638398*^9, 
   3.730651021311689*^9}, {3.730651053332301*^9, 3.730651053760888*^9}, {
   3.730651106097258*^9, 3.730651106905458*^9}, {3.73065124011828*^9, 
   3.730651240869871*^9}, {3.730651279328733*^9, 3.7306512853147297`*^9}, {
   3.730651338435861*^9, 3.7306513391048*^9}, {3.730651378394875*^9, 
   3.730651378912775*^9}, {3.730651603880928*^9, 3.730651605923779*^9}, {
   3.730651733195188*^9, 3.7306517335832853`*^9}, {3.793187973492022*^9, 
   3.79318797410968*^9}, {3.793188100182475*^9, 3.7931881129020348`*^9}, {
   3.793188397814719*^9, 3.793188401468252*^9}, {3.793189187483427*^9, 
   3.793189453260683*^9}, {3.793190751083112*^9, 3.793190768069303*^9}, {
   3.793192508148878*^9, 3.79319254251019*^9}, {3.7931979818015614`*^9, 
   3.793198024698587*^9}, {3.793198091311885*^9, 3.793198092674531*^9}, {
   3.793351290676355*^9, 3.793351369778689*^9}, {3.793351418199696*^9, 
   3.7933514811904507`*^9}, {3.793352833588657*^9, 3.7933528747509527`*^9}, {
   3.793353332336484*^9, 3.7933533605930767`*^9}, {3.793354273561565*^9, 
   3.793354274214408*^9}, {3.7933547575282307`*^9, 3.793354852847948*^9}, {
   3.793355167496249*^9, 3.7933551693531446`*^9}, {3.7933562586915503`*^9, 
   3.7933562848006077`*^9}, {3.79336209598685*^9, 3.7933620966661882`*^9}, {
   3.793362705386194*^9, 3.793362706049535*^9}, {3.7933632919701633`*^9, 
   3.793363292837576*^9}, {3.793363392998446*^9, 3.793363465326754*^9}, {
   3.7933635140283737`*^9, 3.7933635146790857`*^9}, {3.793365610602235*^9, 
   3.793365640994565*^9}, {3.7933663494173613`*^9, 3.7933663499911346`*^9}, {
   3.793369846321529*^9, 3.793369872539796*^9}, {3.793371966425791*^9, 
   3.793372061775339*^9}, {3.793372198822784*^9, 3.7933722175823298`*^9}, {
   3.793372280956873*^9, 3.7933723594848957`*^9}, {3.7933724004192047`*^9, 
   3.793372440802866*^9}, {3.794717694075115*^9, 3.794717756390066*^9}, {
   3.794718069217606*^9, 3.794718089283869*^9}, {3.79471815529583*^9, 
   3.794718155937859*^9}, {3.794718192422448*^9, 3.7947182064974213`*^9}, {
   3.794718286930811*^9, 3.794718331316106*^9}, {3.794718382257937*^9, 
   3.794718385246767*^9}, {3.794719641222299*^9, 3.79471970829278*^9}, {
   3.7947199421315804`*^9, 3.794719972900711*^9}, {3.794720151557324*^9, 
   3.794720178608848*^9}, {3.7947202829746323`*^9, 3.7947202842763863`*^9}, {
   3.794721023956094*^9, 3.794721220963196*^9}, {3.794721255655641*^9, 
   3.794721345356707*^9}, {3.7947213841095543`*^9, 3.79472141132965*^9}, {
   3.794721449280252*^9, 3.794721462850133*^9}, {3.794803966870572*^9, 
   3.794803969779263*^9}, {3.7948040112503138`*^9, 3.794804011394017*^9}, {
   3.7948040442528543`*^9, 3.7948040450899143`*^9}, {3.79480408515598*^9, 
   3.7948040876509953`*^9}, {3.794804126756987*^9, 3.7948041536736393`*^9}, {
   3.79480418477722*^9, 3.794804208389431*^9}, {3.794804268330059*^9, 
   3.794804268954809*^9}, {3.794804322959546*^9, 3.794804323779276*^9}, {
   3.79480472995184*^9, 3.794804756709017*^9}, {3.7948047933704433`*^9, 
   3.7948048217906017`*^9}, {3.79534256962257*^9, 3.79534259991199*^9}, {
   3.795342638755518*^9, 3.795342639556974*^9}, {3.7953426741903353`*^9, 
   3.795342675077209*^9}, {3.795342708235327*^9, 3.7953427087956543`*^9}, {
   3.795342743719316*^9, 3.795342747621437*^9}, {3.795342905306306*^9, 
   3.7953429061302557`*^9}, {3.795342956815152*^9, 3.795342957337069*^9}, {
   3.795342990632867*^9, 3.795342991284628*^9}, {3.795343113462845*^9, 
   3.7953431142516117`*^9}, {3.795343227497652*^9, 3.7953432282581787`*^9}, {
   3.795345360017414*^9, 3.7953453607947187`*^9}, {3.795345392677987*^9, 
   3.795345476014468*^9}, {3.795345538061091*^9, 3.7953455392839317`*^9}, {
   3.7953455808690653`*^9, 3.7953455817781153`*^9}, {3.7953456270938873`*^9, 
   3.7953456279913588`*^9}, {3.795345684344247*^9, 3.795345685281439*^9}, {
   3.795345752707193*^9, 3.7953458074415827`*^9}, {3.795345847323403*^9, 
   3.795345877450775*^9}, {3.795345909593305*^9, 3.795345960019555*^9}, {
   3.7953459930517387`*^9, 3.795346058476944*^9}, {3.7963882576116943`*^9, 
   3.796388286128562*^9}, 3.7963883203989773`*^9, {3.796388365013165*^9, 
   3.7963883944026413`*^9}, {3.796388426206444*^9, 3.796388426837888*^9}, {
   3.796388471981062*^9, 3.7963884727936983`*^9}, {3.796388530761899*^9, 
   3.7963885320040913`*^9}, {3.7963885630133877`*^9, 3.796388565709681*^9}, {
   3.7963886414631987`*^9, 3.7963886424907923`*^9}, 3.796388672732607*^9, {
   3.796388783943017*^9, 3.796388799046713*^9}, {3.7963888367372093`*^9, 
   3.796388837273408*^9}, {3.796718921069089*^9, 3.796719021096674*^9}, {
   3.796719351782094*^9, 3.796719369681489*^9}, {3.796719458659975*^9, 
   3.796719730685463*^9}, {3.79671989882338*^9, 3.796719926798883*^9}, {
   3.796720120370945*^9, 3.7967201214988403`*^9}, {3.796720157793552*^9, 
   3.796720164977096*^9}, {3.79672021277558*^9, 3.796720213658792*^9}, {
   3.796720264167673*^9, 3.796720295153514*^9}, {3.796720357256427*^9, 
   3.796720386690591*^9}, {3.796720452952765*^9, 3.796720477977131*^9}, {
   3.7967205119453487`*^9, 3.796720513410746*^9}, {3.796720556259996*^9, 
   3.796720587296492*^9}, {3.7967207686173973`*^9, 3.796720769225589*^9}, {
   3.796720947402896*^9, 3.796720955376739*^9}, {3.796721047452094*^9, 
   3.796721106707829*^9}, {3.796721152075864*^9, 3.796721315915847*^9}, {
   3.796724858406836*^9, 3.796724861191728*^9}, {3.796725140067284*^9, 
   3.796725185881442*^9}, {3.7967252177957687`*^9, 3.7967252186596823`*^9}, {
   3.7967252648988237`*^9, 3.7967252654897623`*^9}, {3.796725305779867*^9, 
   3.796725306307972*^9}, {3.796725342231475*^9, 3.7967253431800203`*^9}, {
   3.796725389803131*^9, 3.796725414962843*^9}, {3.796725470943557*^9, 
   3.7967255214666843`*^9}, {3.79672563274922*^9, 3.79672563545667*^9}, {
   3.79672886396968*^9, 3.796728864109047*^9}, {3.796728904097514*^9, 
   3.7967289048539124`*^9}, {3.79672898139697*^9, 3.7967290085301847`*^9}, {
   3.796731125095937*^9, 3.7967311259325533`*^9}, {3.7967311730326157`*^9, 
   3.796731174916327*^9}, {3.796731219126643*^9, 3.796731219819468*^9}, {
   3.7967312599192667`*^9, 3.796731260806615*^9}, {3.796731860623095*^9, 
   3.7967318615450172`*^9}, {3.796731895198543*^9, 3.7967318991659184`*^9}, {
   3.796731931746189*^9, 3.796731932583488*^9}, {3.7967320338533773`*^9, 
   3.796732034614265*^9}, {3.796732111898525*^9, 3.7967321124899797`*^9}, {
   3.7967322108410587`*^9, 3.796732238496217*^9}, {3.7967322728662*^9, 
   3.796732274030355*^9}, {3.796732407877798*^9, 3.7967324093484097`*^9}, {
   3.796732572137618*^9, 3.7967325726351757`*^9}, {3.796732618072493*^9, 
   3.7967326189114637`*^9}, {3.796732651378397*^9, 3.79673265258104*^9}, {
   3.796796383958893*^9, 3.796796385088187*^9}, {3.796796450019314*^9, 
   3.79679645085511*^9}, {3.79679652739351*^9, 3.796796528852014*^9}, {
   3.796796568146132*^9, 3.796796568854274*^9}, {3.796796606909319*^9, 
   3.796796607471548*^9}, {3.796797803875107*^9, 3.796797838623292*^9}, {
   3.7967978818851023`*^9, 3.796797927432725*^9}, {3.7967984025483227`*^9, 
   3.796798403501437*^9}, 3.7967984372812977`*^9, {3.79679848677136*^9, 
   3.796798493991514*^9}, {3.796798526517228*^9, 3.796798527132043*^9}, {
   3.79679855859958*^9, 3.796798560617899*^9}, {3.796798603582142*^9, 
   3.7967986504918203`*^9}, {3.7969664713538723`*^9, 3.796966478176613*^9}, 
   3.796966533056652*^9, {3.796966581506543*^9, 3.796966582037683*^9}, {
   3.796966718961096*^9, 3.7969667372259073`*^9}, {3.826606894523299*^9, 
   3.826607019922072*^9}, {3.826610926695557*^9, 3.826610928462062*^9}, {
   3.826610985561392*^9, 3.82661098614074*^9}, {3.8266110597796497`*^9, 
   3.826611090091045*^9}, {3.826611177556431*^9, 3.826611227777501*^9}, {
   3.8266112655346327`*^9, 3.826611292313616*^9}, {3.8266146064523*^9, 
   3.826614638090661*^9}, {3.82661470019516*^9, 3.8266148790334253`*^9}, {
   3.826614913936479*^9, 3.8266150721773977`*^9}, {3.826615159171698*^9, 
   3.826615179972373*^9}, {3.826617212752462*^9, 3.826617250509194*^9}, {
   3.8266173298415403`*^9, 3.8266173303463583`*^9}, {3.8266174975847807`*^9, 
   3.826617498076256*^9}, {3.82661781718678*^9, 3.8266178470466833`*^9}, {
   3.826617931438835*^9, 3.82661793236381*^9}, {3.8266179699647083`*^9, 
   3.826618032222053*^9}, {3.826618068517881*^9, 3.826618069141333*^9}, {
   3.82661810219973*^9, 3.826618151632724*^9}, {3.8266970695515213`*^9, 
   3.8266970764459057`*^9}, {3.826717156155199*^9, 3.826717163088606*^9}, {
   3.826718360705024*^9, 3.826718453236092*^9}, {3.8267185120386143`*^9, 
   3.8267185575904503`*^9}, {3.8267186121511507`*^9, 3.826718637437509*^9}, {
   3.826718725446211*^9, 3.826718756777364*^9}, {3.8267685507590847`*^9, 
   3.826768571798615*^9}, {3.8267686023884077`*^9, 3.826768743756795*^9}, 
   3.8267688347513533`*^9, {3.826768872024275*^9, 3.826768898751472*^9}, {
   3.826768945979527*^9, 3.826768972740347*^9}, {3.826769024858115*^9, 
   3.826769300554306*^9}, {3.826769330712113*^9, 3.826769425561097*^9}, {
   3.826769465027197*^9, 3.826769537515877*^9}, {3.826769582530724*^9, 
   3.826769686472657*^9}, {3.8267697483975563`*^9, 3.826770100675592*^9}, {
   3.826771070926352*^9, 3.826771150084673*^9}, {3.826771240884494*^9, 
   3.826771277862159*^9}, {3.847187490328908*^9, 3.847187490713872*^9}, 
   3.847786784840851*^9, {3.8477868275317917`*^9, 3.847786827864564*^9}, {
   3.8477869139331446`*^9, 3.847786941178939*^9}, {3.8477869722988806`*^9, 
   3.847787024915933*^9}, {3.850565139936673*^9, 3.8505652170309668`*^9}, {
   3.8623191069553747`*^9, 3.862319134160268*^9}, {3.862383428064279*^9, 
   3.862383435513981*^9}, 3.86238347391539*^9, 3.862452867420171*^9, 
   3.864706977226516*^9, {3.864707028901266*^9, 3.8647071774322233`*^9}, {
   3.864707218788224*^9, 3.8647073125175037`*^9}, {3.864707894299307*^9, 
   3.864707896275976*^9}, {3.8647109784680223`*^9, 3.86471113606211*^9}, {
   3.864711562425538*^9, 3.864711563192087*^9}, {3.864785877947678*^9, 
   3.864785907550506*^9}, {3.8647859399573174`*^9, 3.864785940393903*^9}, {
   3.86478618883784*^9, 3.864786208809987*^9}, {3.8647862420256*^9, 
   3.864786248423221*^9}, {3.864786292784031*^9, 3.864786294123871*^9}, {
   3.864786350752995*^9, 3.864786377787657*^9}, {3.8647864320666943`*^9, 
   3.864786432768343*^9}, {3.864786499828169*^9, 3.864786500686331*^9}, {
   3.864786602920507*^9, 3.864786603675933*^9}, {3.8647866576694927`*^9, 
   3.864786662911518*^9}, {3.864786762762929*^9, 3.864786764097632*^9}, {
   3.864786795517728*^9, 3.86478679651007*^9}, {3.874377018554274*^9, 
   3.874377019084628*^9}, {3.874377067986965*^9, 3.8743770697410183`*^9}, {
   3.874377470104459*^9, 3.8743774812472897`*^9}, {3.874377835867907*^9, 
   3.8743778914913*^9}, {3.874377929251405*^9, 3.874377931112936*^9}, {
   3.8743785422409763`*^9, 3.874378543739995*^9}, {3.874378591917406*^9, 
   3.874378592815403*^9}, {3.8743788821989822`*^9, 3.8743788824982224`*^9}, {
   3.874378932887826*^9, 3.874378933561967*^9}, {3.874379029317563*^9, 
   3.874379031869144*^9}, {3.8743790810041533`*^9, 3.8743790815601387`*^9}, {
   3.874379132717276*^9, 3.874379159431901*^9}, {3.874379459033431*^9, 
   3.874379459401616*^9}, {3.874379708894162*^9, 3.874379753520658*^9}, {
   3.874379803330632*^9, 3.874379814589018*^9}, {3.874379897663669*^9, 
   3.874379898057769*^9}, {3.874379982497436*^9, 3.8743799875002117`*^9}, {
   3.874380077844936*^9, 3.874380099085349*^9}, {3.874380413974368*^9, 
   3.874380429093989*^9}, {3.8743805962678328`*^9, 3.874380596849224*^9}, {
   3.87438080742307*^9, 3.8743808193845043`*^9}, {3.8743809497534*^9, 
   3.874380978629682*^9}, {3.8743811017732573`*^9, 3.87438110250318*^9}, {
   3.87438118974675*^9, 3.874381204442802*^9}, {3.874403344237649*^9, 
   3.874403356739065*^9}, {3.8744034563227987`*^9, 3.874403480175137*^9}, 
   3.8744035266680517`*^9, {3.874404089137089*^9, 3.874404092430604*^9}, {
   3.874404144707712*^9, 3.874404145596464*^9}, {3.874404272334405*^9, 
   3.874404289468926*^9}, {3.874404405611348*^9, 3.874404406140164*^9}, {
   3.874404447451457*^9, 3.874404484406891*^9}, {3.874404517698454*^9, 
   3.874404537464819*^9}, {3.874404576452077*^9, 3.874404602150683*^9}, {
   3.874404672787521*^9, 3.8744046734596453`*^9}, {3.874404759897172*^9, 
   3.874404763159466*^9}, 3.874404806477727*^9, {3.874404855255591*^9, 
   3.8744048556815777`*^9}, {3.874404898837438*^9, 3.8744049058361998`*^9}, {
   3.874406765162594*^9, 3.8744067911658707`*^9}, {3.874406950539577*^9, 
   3.874406950783187*^9}, {3.874407145567855*^9, 3.874407200439694*^9}, {
   3.874407269426203*^9, 3.874407285540382*^9}, {3.8744073487094727`*^9, 
   3.874407370094694*^9}, {3.87440767208032*^9, 3.874407686759089*^9}, {
   3.874407800949491*^9, 3.874407825238923*^9}, {3.8744080657393208`*^9, 
   3.8744080984258842`*^9}, {3.874408439363496*^9, 3.874408439999859*^9}, {
   3.8744084716611967`*^9, 3.874408472031911*^9}, {3.874408503072612*^9, 
   3.874408503546311*^9}, {3.8744085481332617`*^9, 3.874408562397876*^9}, {
   3.874408677761857*^9, 3.874408678324985*^9}, {3.874408873768936*^9, 
   3.874408874597767*^9}, {3.874408909333817*^9, 3.87440893720292*^9}, {
   3.87440910407372*^9, 3.874409105186829*^9}, {3.87440914073505*^9, 
   3.874409149585657*^9}, {3.874409230101062*^9, 3.874409231197949*^9}, {
   3.874409449124399*^9, 3.874409478086722*^9}, {3.874409609003901*^9, 
   3.874409609332959*^9}, {3.874409677987378*^9, 3.874409679064806*^9}, {
   3.8744097303935127`*^9, 3.874409730894867*^9}, {3.874409864863874*^9, 
   3.874409866519219*^9}, {3.87440990736242*^9, 3.874409908143416*^9}, {
   3.8744100014837112`*^9, 3.8744100043099747`*^9}, {3.874410076067252*^9, 
   3.874410076480492*^9}, {3.874410147896975*^9, 3.874410148385255*^9}, {
   3.8744102187410107`*^9, 3.874410219061191*^9}, {3.876305420389328*^9, 
   3.87630542115421*^9}, {3.876305621342361*^9, 3.8763056220562153`*^9}, {
   3.876305685672662*^9, 3.8763056869170322`*^9}, {3.876305716981618*^9, 
   3.876305718677381*^9}, {3.8763057930033903`*^9, 3.876305832313242*^9}, {
   3.876305889398048*^9, 3.8763058951000338`*^9}, {3.876305953454973*^9, 
   3.87630595413929*^9}, {3.87630601703089*^9, 3.876306017382283*^9}, {
   3.876306095418763*^9, 3.876306095828698*^9}, {3.876306196708879*^9, 
   3.876306197113866*^9}, {3.87630648675917*^9, 3.876306487151713*^9}, {
   3.8763065578148527`*^9, 3.876306558357707*^9}, {3.876307852654414*^9, 
   3.876307867256771*^9}, {3.876308021113456*^9, 3.8763080459157743`*^9}, {
   3.87630828921633*^9, 3.876308315365542*^9}, {3.876312624981773*^9, 
   3.876312627639097*^9}, {3.8763127283140087`*^9, 3.876312744135125*^9}, {
   3.87631284430567*^9, 3.8763128826187162`*^9}, {3.876312926973935*^9, 
   3.876312962768186*^9}, {3.876313134986724*^9, 3.876313178928816*^9}, {
   3.876313270627619*^9, 3.8763132838045177`*^9}, {3.876313332191766*^9, 
   3.876313342564577*^9}, {3.876717393822068*^9, 3.8767173942439537`*^9}, 
   3.876717531993312*^9, {3.876717626174801*^9, 3.876717631227765*^9}, {
   3.877558922258686*^9, 3.877558944188819*^9}, {3.877559090114058*^9, 
   3.87755914069554*^9}, {3.877559284588072*^9, 3.877559333495569*^9}, {
   3.877559372230729*^9, 3.877559383242133*^9}, {3.877559503604658*^9, 
   3.87755952708363*^9}, {3.8775596450316267`*^9, 3.877559669169964*^9}, {
   3.8775597829496803`*^9, 3.877559814591753*^9}, {3.877560249037171*^9, 
   3.87756028450721*^9}, {3.877560599193824*^9, 3.877560606356208*^9}, {
   3.877560652890264*^9, 3.877560689521039*^9}, {3.8775607301923857`*^9, 
   3.8775607440064096`*^9}, {3.877560779775607*^9, 3.8775608682509613`*^9}, {
   3.877560927462371*^9, 3.877560946182528*^9}, {3.87756152997092*^9, 
   3.877561531392206*^9}, {3.877561581556069*^9, 3.877561625465228*^9}, {
   3.877567157093466*^9, 3.87756716917624*^9}, {3.877567240034706*^9, 
   3.877567240950344*^9}, {3.8775672961298933`*^9, 3.87756730242653*^9}, {
   3.877567359987644*^9, 3.8775673897258587`*^9}, 3.877567442488709*^9, {
   3.877567479786021*^9, 3.877567480157436*^9}, {3.877567552996234*^9, 
   3.8775675566837893`*^9}, {3.8776704456456785`*^9, 
   3.8776705171953335`*^9}, {3.8776705593114853`*^9, 
   3.8776706253652368`*^9}, {3.877679614641201*^9, 3.877679622898487*^9}, 
   3.877679671961088*^9, {3.877680686597546*^9, 3.8776806871761045`*^9}, {
   3.8776807931200953`*^9, 3.877680793576024*^9}, {3.877682573692745*^9, 
   3.877682579887783*^9}, {3.879735902572488*^9, 3.879735927198811*^9}, {
   3.879736936585075*^9, 3.879736939486218*^9}, {3.879736971467328*^9, 
   3.879737042893005*^9}, {3.8797371367167*^9, 3.879737197575858*^9}, {
   3.879737234683526*^9, 3.879737257255481*^9}, {3.879737439675889*^9, 
   3.879737440804143*^9}, {3.879737542788665*^9, 3.8797375436161222`*^9}, {
   3.879737591580761*^9, 3.87973761596292*^9}, {3.879737666564167*^9, 
   3.87973766737383*^9}, {3.879737921692595*^9, 3.879737922311411*^9}, {
   3.879738041151679*^9, 3.879738053056561*^9}, {3.879738083977914*^9, 
   3.8797381149118233`*^9}, {3.8797382010791397`*^9, 3.879738235650844*^9}, {
   3.879738283196412*^9, 3.879738294465048*^9}, {3.879738458012492*^9, 
   3.8797384585909033`*^9}, {3.879738516043524*^9, 3.8797385168090353`*^9}, {
   3.879738549014434*^9, 3.879738596852652*^9}, {3.879738642871276*^9, 
   3.879738643496644*^9}, {3.879739552160104*^9, 3.879739578968154*^9}, {
   3.879739712058628*^9, 3.879739712867502*^9}, {3.882355035526404*^9, 
   3.882355118090501*^9}, {3.882355340724991*^9, 3.88235534185536*^9}, {
   3.88235554163319*^9, 3.882355546180181*^9}, {3.882355599334992*^9, 
   3.882355601559121*^9}, {3.882355644905904*^9, 3.882355645969541*^9}, {
   3.882355677662642*^9, 3.88235572848948*^9}, {3.882355956388941*^9, 
   3.882356018409678*^9}, {3.882356054210471*^9, 3.8823560555433493`*^9}, {
   3.882356114496275*^9, 3.882356198728546*^9}, {3.8823570481404047`*^9, 
   3.8823571901080723`*^9}, {3.882589078923485*^9, 3.882589201153062*^9}, {
   3.882589231736112*^9, 3.882589257584145*^9}, 3.882605496651626*^9, {
   3.882605568995679*^9, 3.882605570881275*^9}, {3.882605677396534*^9, 
   3.882605704113368*^9}, {3.882605748975279*^9, 3.882605812345188*^9}, {
   3.882606831963146*^9, 3.8826068618379183`*^9}, {3.8826068925787497`*^9, 
   3.88260689451858*^9}, {3.882931907435707*^9, 3.882931910706471*^9}, {
   3.882932245820414*^9, 3.882932282330584*^9}, {3.8829323298075027`*^9, 
   3.882932390700542*^9}, {3.882932448501665*^9, 3.882932494126213*^9}, {
   3.882938980534898*^9, 3.882938981344692*^9}, {3.88293911527135*^9, 
   3.88293911805165*^9}, {3.882939177926568*^9, 3.882939187256262*^9}, {
   3.882939242726939*^9, 3.882939243373867*^9}, {3.882939316230979*^9, 
   3.882939316753211*^9}, {3.882963006410307*^9, 3.882963006617566*^9}, {
   3.88296343488551*^9, 3.882963460856337*^9}, {3.882963524029525*^9, 
   3.882963538449032*^9}, {3.8832159309373493`*^9, 3.883215966791808*^9}, {
   3.883216314232642*^9, 3.883216315386883*^9}, {3.883216346468273*^9, 
   3.88321634820685*^9}, {3.8832164911749067`*^9, 3.883216527765065*^9}, {
   3.8832165635075502`*^9, 3.8832165901369257`*^9}, {3.883218887442151*^9, 
   3.883219066278167*^9}, {3.8832195687290983`*^9, 3.8832195764647937`*^9}, {
   3.8836395623786654`*^9, 3.883639593316204*^9}, {3.8836414563309913`*^9, 
   3.883641472754165*^9}, {3.88364263984908*^9, 3.8836426404756517`*^9}, {
   3.8838879873501577`*^9, 3.883887998646222*^9}, {3.8838881028873267`*^9, 
   3.8838881319387617`*^9}, {3.883888173124264*^9, 3.883888228216187*^9}, {
   3.8838890189077044`*^9, 3.8838890496889706`*^9}, {3.883889089110239*^9, 
   3.8838890953555136`*^9}, {3.8838893869408455`*^9, 
   3.8838895256747236`*^9}, {3.883889982201064*^9, 3.883890091339246*^9}, {
   3.883890158327944*^9, 3.883890182426996*^9}, {3.8838902317791605`*^9, 
   3.8838902484866095`*^9}, {3.8838903033824825`*^9, 
   3.8838903048654532`*^9}, {3.8838904577096815`*^9, 
   3.8838904657840047`*^9}, {3.8838905095733614`*^9, 
   3.8838906226961184`*^9}, {3.883891975892668*^9, 3.883891992949751*^9}, {
   3.883893328469571*^9, 3.883893396365059*^9}, {3.8838934561654453`*^9, 
   3.883893499804861*^9}, {3.88389400751709*^9, 3.8838940310054927`*^9}, {
   3.883894106403104*^9, 3.8838941341246605`*^9}, {3.883894328861535*^9, 
   3.8838943450962715`*^9}, {3.8838945965779114`*^9, 3.883894600628306*^9}, {
   3.88389478981545*^9, 3.883894790651063*^9}, {3.88389483414883*^9, 
   3.883894835490596*^9}, {3.883894988080919*^9, 3.8838950133598275`*^9}, 
   3.8839117005639696`*^9, {3.8839118723522816`*^9, 3.883911878432968*^9}, {
   3.8839119192446604`*^9, 3.883911929175087*^9}, {3.8839155377662244`*^9, 
   3.883915545535674*^9}, 3.883915601524152*^9, {3.884927052312626*^9, 
   3.884927054816425*^9}, {3.8849272139430275`*^9, 3.8849272298528037`*^9}, {
   3.8849274825391846`*^9, 3.884927483809958*^9}, {3.884927602415764*^9, 
   3.8849276184876847`*^9}, {3.884929982087688*^9, 3.884929983205032*^9}, {
   3.8849327596640587`*^9, 3.884932760603389*^9}, {3.884933307026065*^9, 
   3.8849333098926697`*^9}, {3.884939553222355*^9, 3.884939627767661*^9}, {
   3.8849396939886675`*^9, 3.884939703086158*^9}, {3.884939738601097*^9, 
   3.8849397398539677`*^9}, 3.8849398071305733`*^9, {3.8849398458761015`*^9, 
   3.884939902426296*^9}, {3.8849399766624537`*^9, 3.88494000279943*^9}, {
   3.8849401671760693`*^9, 3.8849401685659647`*^9}, {3.8849407599878054`*^9, 
   3.884940793785606*^9}, {3.8849409951864557`*^9, 3.8849410068452363`*^9}, {
   3.8849410504947233`*^9, 3.884941325168646*^9}, {3.8849431757833505`*^9, 
   3.8849431788860407`*^9}, {3.884943376034837*^9, 3.884943395496915*^9}, {
   3.88494345487226*^9, 3.884943553790366*^9}, {3.88494361075471*^9, 
   3.884943658694199*^9}, {3.8849436958303432`*^9, 3.8849437113657775`*^9}, {
   3.884943853439436*^9, 3.884943951500882*^9}, {3.884944062373579*^9, 
   3.8849440654854326`*^9}, {3.8849441833197603`*^9, 
   3.8849443567497163`*^9}, {3.8849459053756065`*^9, 
   3.8849459084695883`*^9}, {3.884945945004721*^9, 3.884945948482488*^9}, {
   3.8849471135705924`*^9, 3.8849471140723705`*^9}, {3.884965008414546*^9, 
   3.884965376748871*^9}, {3.884965450820256*^9, 3.8849655470941877`*^9}, {
   3.884965584521477*^9, 3.884965584906248*^9}, {3.884969843062837*^9, 
   3.884970234923013*^9}, {3.887083167434225*^9, 3.887083195908745*^9}, {
   3.88708408138459*^9, 3.887084085343897*^9}, {3.8870842175063667`*^9, 
   3.887084314583115*^9}, {3.887084552062747*^9, 3.8870845920996637`*^9}, {
   3.8870850587752175`*^9, 3.887085059365*^9}, {3.887085664160859*^9, 
   3.887085668097189*^9}, {3.890809301543406*^9, 3.8908093948163*^9}, {
   3.895303326340123*^9, 3.895303329899403*^9}, {3.897991901543907*^9, 
   3.8979919021758213`*^9}, {3.897997292091186*^9, 3.897997296652246*^9}, {
   3.898676492914647*^9, 3.898676505631259*^9}, {3.898676574337928*^9, 
   3.898676942643486*^9}, {3.898676974852075*^9, 3.8986769756353827`*^9}, {
   3.898677012911879*^9, 3.8986770521518993`*^9}, {3.898677086958209*^9, 
   3.898677346803164*^9}, {3.8986774320883617`*^9, 3.8986774687319193`*^9}, {
   3.89867754953439*^9, 3.898677550083405*^9}, {3.89867760177109*^9, 
   3.8986776438099413`*^9}, {3.898677691009343*^9, 3.898677691857979*^9}, 
   3.898677727615922*^9, {3.898677774969522*^9, 3.898677798397559*^9}, {
   3.898677847770974*^9, 3.898677856741837*^9}, {3.898677935248745*^9, 
   3.8986779359430857`*^9}, {3.898755529286405*^9, 3.898755598720381*^9}, {
   3.8987556682001677`*^9, 3.89875576133248*^9}, {3.898755939551538*^9, 
   3.898756237368765*^9}, {3.8987562689479313`*^9, 3.898756317318595*^9}, {
   3.8987563834144373`*^9, 3.898756384619794*^9}, {3.898756447099801*^9, 
   3.8987564480340223`*^9}, {3.8987566279618998`*^9, 3.898756795338587*^9}, {
   3.898756935308943*^9, 3.898756943374774*^9}, {3.898757625698806*^9, 
   3.898757626710743*^9}, {3.898757692599739*^9, 3.898757779782769*^9}, {
   3.8987578791010036`*^9, 3.898757915483829*^9}, {3.8987579488643503`*^9, 
   3.898757953634954*^9}, {3.8987579927704153`*^9, 3.898758055445784*^9}, {
   3.8987683380850773`*^9, 3.898768415795308*^9}, {3.898933939537983*^9, 
   3.898934096438549*^9}, {3.9097450772198143`*^9, 3.909745103586606*^9}, {
   3.9097451554460106`*^9, 3.9097451967043543`*^9}, {3.9097452272491407`*^9, 
   3.9097452429959917`*^9}, {3.909749782327423*^9, 3.909749800547068*^9}, {
   3.9097498347476263`*^9, 3.909749848643791*^9}, {3.9097499746545277`*^9, 
   3.9097500040938945`*^9}, {3.9097500755231805`*^9, 
   3.9097501002210503`*^9}, {3.9097501597328463`*^9, 
   3.9097501817880917`*^9}, {3.909750244228856*^9, 3.9097502692770357`*^9}, {
   3.909750312741002*^9, 3.9097503740019894`*^9}, {3.9097504604009295`*^9, 
   3.9097504820099697`*^9}, {3.909750618942827*^9, 3.9097506199628544`*^9}, {
   3.909751171853617*^9, 3.909751288928584*^9}, {3.909827059720033*^9, 
   3.9098271116862907`*^9}, {3.90998041312388*^9, 3.909980455061823*^9}, 
   3.910068827372164*^9, {3.9100689376726217`*^9, 3.910068972585406*^9}, {
   3.9100690485774207`*^9, 3.910069107020605*^9}, {3.9100691973537645`*^9, 
   3.9100691988212833`*^9}, {3.910069421443222*^9, 3.91006943975084*^9}, {
   3.9100699854083867`*^9, 3.910070085545856*^9}, {3.911723115689994*^9, 
   3.9117231176613693`*^9}, {3.912049215650854*^9, 3.9120492165217314`*^9}, {
   3.912054451908626*^9, 3.9120544873705626`*^9}, {3.912054527300249*^9, 
   3.912054528965108*^9}, {3.9120546918316107`*^9, 3.9120547409320006`*^9}, {
   3.912054949563472*^9, 3.912055028602454*^9}, {3.912055188804249*^9, 
   3.91205525013015*^9}, {3.912055506166196*^9, 3.9120555157801433`*^9}, {
   3.912055585643099*^9, 3.9120555881161623`*^9}, {3.9120556490954657`*^9, 
   3.912055655438073*^9}, 3.9120558161753817`*^9, {3.9120558473803825`*^9, 
   3.9120558487063417`*^9}, 3.912056038372471*^9, {3.912056095228444*^9, 
   3.912056104714924*^9}, {3.9120562319277897`*^9, 3.912056264802334*^9}, {
   3.9120563625632153`*^9, 3.9120563875149975`*^9}, {3.912056442299606*^9, 
   3.91205644256334*^9}, {3.9120565155251145`*^9, 3.9120565159301424`*^9}, {
   3.9120565554459*^9, 3.912056583178759*^9}, {3.9120566298745837`*^9, 
   3.912056631706452*^9}, {3.912056864117752*^9, 3.912056918684428*^9}, {
   3.9120569807065983`*^9, 3.9120570311302347`*^9}, 3.912057173768146*^9, {
   3.9120577994076505`*^9, 3.9120578523056374`*^9}, {3.9120578911830225`*^9, 
   3.9120579548094425`*^9}, {3.9120580005320415`*^9, 
   3.9120580313389287`*^9}, {3.912058204944909*^9, 3.912058350953248*^9}, {
   3.9120586539932413`*^9, 3.9120586827038116`*^9}, {3.9120596243849525`*^9, 
   3.912059626588793*^9}, {3.912059722159072*^9, 3.9120597289515963`*^9}, {
   3.912059775979518*^9, 3.9120597787077904`*^9}, {3.9120598136742887`*^9, 
   3.9120598512873654`*^9}, {3.912059915494443*^9, 3.912060043673927*^9}, {
   3.914666471971696*^9, 3.914666543624612*^9}, {3.9146666302742157`*^9, 
   3.91466667329607*^9}, {3.960882672140068*^9, 3.960882693624892*^9}, {
   3.960882742047303*^9, 3.9608827479636993`*^9}, {3.960882804852764*^9, 
   3.960882839024149*^9}, {3.9608828737256804`*^9, 3.96088295072265*^9}, {
   3.9608832861223354`*^9, 3.9608832872534094`*^9}, {3.9608840004879875`*^9, 
   3.96088407417409*^9}, 3.9608841231325197`*^9, 3.960884392709345*^9, 
   3.960890522508413*^9, {3.960890902671015*^9, 3.9608910330187273`*^9}, {
   3.960891607978098*^9, 3.960891608489957*^9}, {3.960893463737898*^9, 
   3.9608934757807508`*^9}, {3.9608935990058174`*^9, 
   3.9608936147026944`*^9}, {3.960894058617362*^9, 3.9608941796306515`*^9}, {
   3.960894365480261*^9, 3.9608944202719383`*^9}, {3.9610328265133843`*^9, 
   3.9610328427497654`*^9}, {3.961034349983841*^9, 3.96103435035128*^9}, {
   3.9610346963616247`*^9, 3.961034725926017*^9}, {3.9610348442967367`*^9, 
   3.9610349253900537`*^9}, {3.9610349565890427`*^9, 3.961034962229766*^9}, {
   3.96103501286812*^9, 3.9610350239051685`*^9}, {3.9610350673075066`*^9, 
   3.9610353124219*^9}, {3.961035351624625*^9, 3.9610353835224175`*^9}, 
   3.961035439929196*^9, {3.961035531123535*^9, 3.9610356164720097`*^9}, {
   3.9610443723171415`*^9, 3.9610443734194255`*^9}, {3.96105812013687*^9, 
   3.9610581491973743`*^9}, {3.9610582130910635`*^9, 3.961058273572483*^9}, {
   3.9610583380841875`*^9, 3.9610585665958805`*^9}, {3.9610585973059406`*^9, 
   3.961058608796214*^9}},
 FontSize->16,
 CellLabel->"In[1]:=",ExpressionUUID->"7f256e76-7bd0-413d-8b41-c27ce15e3dfc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["2. Optimum",
 FontSize->28]], "Section",
 CellChangeTimes->{{3.670751262663126*^9, 3.6707512716950045`*^9}, {
   3.6707571857820654`*^9, 3.670757725982362*^9}, {3.6707577720322423`*^9, 
   3.6707580313046722`*^9}, {3.670758110660347*^9, 3.6707582165148106`*^9}, {
   3.6707584462677717`*^9, 3.6707584879353724`*^9}, {3.670758525125772*^9, 
   3.670758677631154*^9}, {3.670758712667856*^9, 3.670758727659072*^9}, {
   3.6707587801829247`*^9, 3.6707590830476985`*^9}, {3.6707591682516212`*^9, 
   3.670759340889721*^9}, 3.676264331560053*^9, {3.6762643664095592`*^9, 
   3.676264388701388*^9}, {3.6762644454371333`*^9, 3.6762644949190645`*^9}, 
   3.676265225111653*^9, {3.6762653117372646`*^9, 3.676265317836708*^9}, 
   3.676265614494358*^9, {3.6762676904442005`*^9, 3.676267691894973*^9}, {
   3.676267761314638*^9, 3.6762677738723965`*^9}, {3.6762678074117517`*^9, 
   3.6762678324492702`*^9}, {3.676267911227755*^9, 3.676268044511592*^9}, {
   3.6762689986828485`*^9, 3.6762690074811354`*^9}, {3.67626910855224*^9, 
   3.6762691554140387`*^9}, {3.67626925364598*^9, 3.676269283628795*^9}, {
   3.6762693304749947`*^9, 3.676269352501912*^9}, {3.676269430064118*^9, 
   3.6762694664116516`*^9}, {3.676269682126686*^9, 3.6762697188042192`*^9}, {
   3.6762697794718413`*^9, 3.676269781000622*^9}, {3.6767818135145655`*^9, 
   3.6767818299725943`*^9}, {3.676781877178277*^9, 3.676782013553407*^9}, {
   3.6767820550972805`*^9, 3.676782245158105*^9}, {3.6767822829579716`*^9, 
   3.676782316747631*^9}, {3.6767823678845205`*^9, 3.6767824042637844`*^9}, {
   3.6767826046932263`*^9, 3.676782628702668*^9}, {3.6767826960635867`*^9, 
   3.6767826995423927`*^9}, {3.6767827454220734`*^9, 
   3.6767827928773565`*^9}, {3.6767828909674163`*^9, 
   3.6767829167708616`*^9}, {3.6767829980626044`*^9, 3.67678320181105*^9}, {
   3.6767832453351264`*^9, 3.6767832512475367`*^9}, {3.6767833203868585`*^9, 
   3.676783367608141*^9}, {3.6767834429361567`*^9, 3.6767836327260904`*^9}, {
   3.676783889237341*^9, 3.67678391145178*^9}, {3.676783947300643*^9, 
   3.6767839826347046`*^9}, {3.6767840141935606`*^9, 3.67678403531608*^9}, 
   3.676784201316972*^9, {3.676784335505494*^9, 3.676784361931941*^9}, {
   3.676784824707841*^9, 3.67678501748967*^9}, {3.6767851884191704`*^9, 
   3.676785228948041*^9}, 3.676785259024894*^9, {3.6767853194292*^9, 
   3.6767856309552307`*^9}, 3.676785727684484*^9, {3.676785769086957*^9, 
   3.6767857923933973`*^9}, 3.676785830644665*^9, {3.6767859019211903`*^9, 
   3.6767859726620045`*^9}, {3.6767861158430567`*^9, 
   3.6767862150124307`*^9}, {3.6767862720854187`*^9, 
   3.6767862821630363`*^9}, {3.6767865151504455`*^9, 
   3.6767865209536552`*^9}, {3.676786562150816*^9, 3.676786573632436*^9}, {
   3.676786751254348*^9, 3.676786752003149*^9}, {3.6767867885384135`*^9, 
   3.676786856538933*^9}, {3.676786886815276*^9, 3.6767868874080777`*^9}, {
   3.67678692891975*^9, 3.6767869294813514`*^9}, {3.676786979120639*^9, 
   3.6767869956254673`*^9}, {3.6767870404599466`*^9, 3.676787041427148*^9}, {
   3.676787088944832*^9, 3.676787143326527*^9}, {3.6767871742262683`*^9, 
   3.6767872414467864`*^9}, {3.676787506710343*^9, 3.6767875371927967`*^9}, 
   3.6767876487641926`*^9, {3.6767876904006653`*^9, 3.6767877003066826`*^9}, {
   3.6767877468727646`*^9, 3.6767878194871817`*^9}, {3.676787901948927*^9, 
   3.6767879511202126`*^9}, {3.676787996266692*^9, 3.676788108689172*^9}, {
   3.6767984764760714`*^9, 3.67679850390092*^9}, {3.676798701898559*^9, 
   3.6767987031933613`*^9}, {3.676798793876321*^9, 3.676798820396367*^9}, {
   3.676798883794879*^9, 3.6767989012981095`*^9}, {3.6767989778319354`*^9, 
   3.6767989975815697`*^9}, {3.676816436999343*^9, 3.676816453613366*^9}, {
   3.67681652720547*^9, 3.6768165282254715`*^9}, {3.6768822981645145`*^9, 
   3.6768823341069775`*^9}, 3.676882384245466*^9, {3.6768824210874205`*^9, 
   3.6768825120043807`*^9}, 3.6768825679616785`*^9, {3.6768828350732374`*^9, 
   3.67688283652404*^9}, {3.676882889080532*^9, 3.6768830203852525`*^9}, {
   3.6768830545961123`*^9, 3.67688307565615*^9}, {3.6781850229574013`*^9, 
   3.6781850442982388`*^9}, {3.678185317096918*^9, 3.6781853180017195`*^9}, {
   3.6781854089664793`*^9, 3.67818543770173*^9}, {3.6781854857030144`*^9, 
   3.678185487169417*^9}, {3.6781856754773474`*^9, 3.6781857222774296`*^9}, {
   3.678185823942808*^9, 3.678185855486064*^9}, 3.67818588754412*^9, {
   3.6781859338294015`*^9, 3.6781859743738728`*^9}, {3.6781860140291424`*^9, 
   3.6781860176951485`*^9}, {3.6781860497064047`*^9, 3.678186056476817*^9}, {
   3.6781861332445517`*^9, 3.6781862013074713`*^9}, {3.678440012133279*^9, 
   3.6784400130380807`*^9}, {3.6784400817562017`*^9, 
   3.6784401117394543`*^9}, {3.678440299236183*^9, 3.678440343961462*^9}, {
   3.678440746644969*^9, 3.678440795909856*^9}, {3.6784410750723457`*^9, 
   3.6784410753687468`*^9}, {3.6872221332742443`*^9, 3.687222169856309*^9}, {
   3.6934841047914743`*^9, 3.6934842315715876`*^9}, 3.693484270103655*^9, {
   3.6934843294617596`*^9, 3.6934843386657753`*^9}, {3.693484409021899*^9, 
   3.6934845275525937`*^9}, {3.6934846015747237`*^9, 
   3.6934846751756535`*^9}, {3.6934848033999653`*^9, 3.6934848461782403`*^9}, 
   3.693484904647143*^9, {3.6934849755336676`*^9, 3.693485084832741*^9}, {
   3.693485123645609*^9, 3.693485131055622*^9}, {3.6934851655316825`*^9, 
   3.693485244670622*^9}, {3.6934856149259577`*^9, 3.693485696015582*^9}, {
   3.6934857509120784`*^9, 3.69348576916411*^9}, {3.69348580888178*^9, 
   3.693485915789768*^9}, {3.693486329848663*^9, 3.6934863394894795`*^9}, {
   3.6935432280295544`*^9, 3.693543331566936*^9}, {3.693543395823449*^9, 
   3.6935434394421253`*^9}, {3.69354348775541*^9, 3.693543514837058*^9}, {
   3.693543567627551*^9, 3.693543632492465*^9}, {3.69354366944893*^9, 
   3.6935437296972356`*^9}, {3.6935438475554423`*^9, 3.693543931046789*^9}, {
   3.693544603171178*^9, 3.693544641625245*^9}, {3.69354469007893*^9, 
   3.6935448362634687`*^9}, {3.6935450674558744`*^9, 3.693545077315092*^9}, {
   3.6935451126335545`*^9, 3.693545150470902*^9}, {3.6935452310762434`*^9, 
   3.693545272697117*^9}, {3.693545324960209*^9, 3.6935455512436066`*^9}, {
   3.69354559871449*^9, 3.69354568980305*^9}, {3.693545961420306*^9, 
   3.69354598159746*^9}, {3.6935462818133297`*^9, 3.6935463435473475`*^9}, {
   3.6935464430911226`*^9, 3.6935464678171663`*^9}, {3.6935465046020308`*^9, 
   3.6935465231972632`*^9}, {3.693547576528993*^9, 3.6935475849218082`*^9}, {
   3.693547692811598*^9, 3.6935477200960455`*^9}, {3.693547751530101*^9, 
   3.6935477945705767`*^9}, {3.6935478299202385`*^9, 3.693547969290883*^9}, {
   3.693548003129343*^9, 3.6935480173565674`*^9}, {3.693548069398259*^9, 
   3.6935481054031224`*^9}, {3.6935673945017843`*^9, 3.693567544137247*^9}, {
   3.693567580672511*^9, 3.6935676025125494`*^9}, {3.6935676481270294`*^9, 
   3.693567649531032*^9}, {3.69356770512953*^9, 3.693567783114066*^9}, {
   3.6935678536573906`*^9, 3.693567883625043*^9}, {3.693567914372697*^9, 
   3.6935680358657103`*^9}, {3.6935680952706146`*^9, 
   3.6935681020722265`*^9}, {3.693568142039497*^9, 3.6935681853295727`*^9}, {
   3.693570592792536*^9, 3.693570666596266*^9}, {3.69357070915314*^9, 
   3.6935707166411533`*^9}, {3.693570861471808*^9, 3.69357092538612*^9}, {
   3.6935709563063745`*^9, 3.6935709680375953`*^9}, {3.6935712905719523`*^9, 
   3.693571293816758*^9}, {3.6935713355000315`*^9, 3.6935713406480403`*^9}, {
   3.693571410302163*^9, 3.6935714688958654`*^9}, {3.693571514666346*^9, 
   3.6935715214533577`*^9}, {3.693613521003137*^9, 3.6936135525727415`*^9}, {
   3.6936136444074907`*^9, 3.693613677418774*^9}, {3.693613731566362*^9, 
   3.693613752254079*^9}, {3.6936138492152643`*^9, 3.693613860346358*^9}, {
   3.693613929823763*^9, 3.6936139382038507`*^9}, 3.693614165649536*^9, {
   3.693614248609654*^9, 3.693614248780197*^9}, {3.6936142808150845`*^9, 
   3.6936142812461305`*^9}, {3.693614368744974*^9, 3.6936143688278685`*^9}, {
   3.69361440890644*^9, 3.69361443509452*^9}, 3.6936144721679087`*^9, {
   3.693614505043395*^9, 3.6936145054099674`*^9}, {3.6936147925726423`*^9, 
   3.6936147929449635`*^9}, {3.6936148693823366`*^9, 
   3.6936149298991976`*^9}, {3.6936149968208237`*^9, 3.693614997409125*^9}, {
   3.6936150912358823`*^9, 3.6936150915721292`*^9}, {3.693615220943118*^9, 
   3.69361522143132*^9}, {3.6936153150157223`*^9, 3.6936153203941317`*^9}, {
   3.6936153516091986`*^9, 3.693615352500991*^9}, {3.6936168003680615`*^9, 
   3.693616803804449*^9}, {3.69361795404286*^9, 3.6936179545819254`*^9}, 
   3.6936179903518734`*^9, {3.693633169909931*^9, 3.693633223309825*^9}, 
   3.6936332875663376`*^9, {3.693633381696903*^9, 3.6936334286373854`*^9}, {
   3.693633486498887*^9, 3.6936334874816885`*^9}, 3.693633544546589*^9, {
   3.693633587821065*^9, 3.6936336317507424`*^9}, {3.693633879135977*^9, 
   3.693633928666064*^9}, {3.693638118045456*^9, 3.6936381189658575`*^9}, {
   3.6936381561563225`*^9, 3.6936381576227255`*^9}, {3.6936381900707817`*^9, 
   3.6936381906323833`*^9}, {3.6938331917618065`*^9, 3.693833192370208*^9}, 
   3.6938344367597275`*^9, {3.6953777849749002`*^9, 3.695377785536502*^9}, {
   3.6953781172065725`*^9, 3.695378117534173*^9}, {3.6954539739734354`*^9, 
   3.695454173294986*^9}, 3.6954542585928197`*^9, {3.695640786843095*^9, 
   3.6956409141699114`*^9}, {3.6956410955038605`*^9, 3.695641168401726*^9}, {
   3.695641202165758*^9, 3.6956413060916257`*^9}, {3.695641367788724*^9, 
   3.695641380268484*^9}, {3.695641639264801*^9, 3.6956416799488187`*^9}, 
   3.69564217933961*^9, {3.6956425270600204`*^9, 3.695642535530658*^9}, {
   3.6956425684304247`*^9, 3.695642587150065*^9}, {3.6957112139343977`*^9, 
   3.6957112610604877`*^9}, 3.701496970956296*^9, 3.701498393626874*^9, 
   3.7029589776988583`*^9, 3.7029590180098586`*^9, {3.7029591280348587`*^9, 
   3.7029591625718584`*^9}, {3.702959206235859*^9, 3.7029592104628587`*^9}, {
   3.7029592499638586`*^9, 3.7029592614278584`*^9}, 3.702959586322859*^9, 
   3.702959623261859*^9, 3.7029596600438585`*^9, {3.7029597187058587`*^9, 
   3.7029597200878587`*^9}, 3.7029597587198586`*^9, {3.7029597969428587`*^9, 
   3.7029598397298584`*^9}, {3.702960663643859*^9, 3.7029606704678583`*^9}, 
   3.7029607955348587`*^9, 3.703303051666314*^9, 3.703303750785536*^9, {
   3.721584198627989*^9, 3.72158420746242*^9}, {3.723910854056492*^9, 
   3.7239108740034857`*^9}, {3.7933496990991783`*^9, 3.793349703910049*^9}, {
   3.826697422893442*^9, 3.826697445457988*^9}, 3.826697543420491*^9, {
   3.826697613904471*^9, 3.826697623528056*^9}, {3.960882354129012*^9, 
   3.960882359695835*^9}, 3.960882423997181*^9},
 FontSize->16,ExpressionUUID->"18e0dfe1-a896-4549-8754-9e0138eadb35"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Resolution",
 FontSize->20]], "Subsubsection",
 CellChangeTimes->{{3.670751262663126*^9, 3.6707512716950045`*^9}, {
   3.6707571857820654`*^9, 3.670757725982362*^9}, {3.6707577720322423`*^9, 
   3.6707580313046722`*^9}, {3.670758110660347*^9, 3.6707582165148106`*^9}, {
   3.6707584462677717`*^9, 3.6707584879353724`*^9}, {3.670758525125772*^9, 
   3.670758677631154*^9}, {3.670758712667856*^9, 3.670758727659072*^9}, {
   3.6707587801829247`*^9, 3.6707590830476985`*^9}, {3.6707591682516212`*^9, 
   3.670759340889721*^9}, 3.676264331560053*^9, {3.6762643664095592`*^9, 
   3.676264388701388*^9}, {3.6762644454371333`*^9, 3.6762644949190645`*^9}, 
   3.676265225111653*^9, {3.6762653117372646`*^9, 3.676265317836708*^9}, 
   3.676265614494358*^9, {3.6762676904442005`*^9, 3.676267691894973*^9}, {
   3.676267761314638*^9, 3.6762677738723965`*^9}, {3.6762678074117517`*^9, 
   3.6762678324492702`*^9}, {3.676267911227755*^9, 3.676268044511592*^9}, {
   3.6762689986828485`*^9, 3.6762690074811354`*^9}, {3.67626910855224*^9, 
   3.6762691554140387`*^9}, {3.67626925364598*^9, 3.676269283628795*^9}, {
   3.6762693304749947`*^9, 3.676269352501912*^9}, {3.676269430064118*^9, 
   3.6762694664116516`*^9}, {3.676269682126686*^9, 3.6762697188042192`*^9}, {
   3.6762697794718413`*^9, 3.676269781000622*^9}, {3.6767818135145655`*^9, 
   3.6767818299725943`*^9}, {3.676781877178277*^9, 3.676782013553407*^9}, {
   3.6767820550972805`*^9, 3.676782245158105*^9}, {3.6767822829579716`*^9, 
   3.676782316747631*^9}, {3.6767823678845205`*^9, 3.6767824042637844`*^9}, {
   3.6767826046932263`*^9, 3.676782628702668*^9}, {3.6767826960635867`*^9, 
   3.6767826995423927`*^9}, {3.6767827454220734`*^9, 
   3.6767827928773565`*^9}, {3.6767828909674163`*^9, 
   3.6767829167708616`*^9}, {3.6767829980626044`*^9, 3.67678320181105*^9}, {
   3.6767832453351264`*^9, 3.6767832512475367`*^9}, {3.6767833203868585`*^9, 
   3.676783367608141*^9}, {3.6767834429361567`*^9, 3.6767836327260904`*^9}, {
   3.676783889237341*^9, 3.67678391145178*^9}, {3.676783947300643*^9, 
   3.6767839826347046`*^9}, {3.6767840141935606`*^9, 3.67678403531608*^9}, 
   3.676784201316972*^9, {3.676784335505494*^9, 3.676784361931941*^9}, {
   3.676784824707841*^9, 3.67678501748967*^9}, {3.6767851884191704`*^9, 
   3.676785228948041*^9}, 3.676785259024894*^9, {3.6767853194292*^9, 
   3.6767856309552307`*^9}, 3.676785727684484*^9, {3.676785769086957*^9, 
   3.6767857923933973`*^9}, 3.676785830644665*^9, {3.6767859019211903`*^9, 
   3.6767859726620045`*^9}, {3.6767861158430567`*^9, 
   3.6767862150124307`*^9}, {3.6767862720854187`*^9, 
   3.6767862821630363`*^9}, {3.6767865151504455`*^9, 
   3.6767865209536552`*^9}, {3.676786562150816*^9, 3.676786573632436*^9}, {
   3.676786751254348*^9, 3.676786752003149*^9}, {3.6767867885384135`*^9, 
   3.676786856538933*^9}, {3.676786886815276*^9, 3.6767868874080777`*^9}, {
   3.67678692891975*^9, 3.6767869294813514`*^9}, {3.676786979120639*^9, 
   3.6767869956254673`*^9}, {3.6767870404599466`*^9, 3.676787041427148*^9}, {
   3.676787088944832*^9, 3.676787143326527*^9}, {3.6767871742262683`*^9, 
   3.6767872414467864`*^9}, {3.676787506710343*^9, 3.6767875371927967`*^9}, 
   3.6767876487641926`*^9, {3.6767876904006653`*^9, 3.6767877003066826`*^9}, {
   3.6767877468727646`*^9, 3.6767878194871817`*^9}, {3.676787901948927*^9, 
   3.6767879511202126`*^9}, {3.676787996266692*^9, 3.676788108689172*^9}, {
   3.6767984764760714`*^9, 3.67679850390092*^9}, {3.676798701898559*^9, 
   3.6767987031933613`*^9}, {3.676798793876321*^9, 3.676798820396367*^9}, {
   3.676798883794879*^9, 3.6767989012981095`*^9}, {3.6767989778319354`*^9, 
   3.6767989975815697`*^9}, {3.676816436999343*^9, 3.676816453613366*^9}, {
   3.67681652720547*^9, 3.6768165282254715`*^9}, {3.6768822981645145`*^9, 
   3.6768823341069775`*^9}, 3.676882384245466*^9, {3.6768824210874205`*^9, 
   3.6768825120043807`*^9}, 3.6768825679616785`*^9, {3.6768828350732374`*^9, 
   3.67688283652404*^9}, {3.676882889080532*^9, 3.6768830203852525`*^9}, {
   3.6768830545961123`*^9, 3.67688307565615*^9}, {3.6781850229574013`*^9, 
   3.6781850442982388`*^9}, {3.678185317096918*^9, 3.6781853180017195`*^9}, {
   3.6781854089664793`*^9, 3.67818543770173*^9}, {3.6781854857030144`*^9, 
   3.678185487169417*^9}, {3.6781856754773474`*^9, 3.6781857222774296`*^9}, {
   3.678185823942808*^9, 3.678185855486064*^9}, 3.67818588754412*^9, {
   3.6781859338294015`*^9, 3.6781859743738728`*^9}, {3.6781860140291424`*^9, 
   3.6781860176951485`*^9}, {3.6781860497064047`*^9, 3.678186056476817*^9}, {
   3.6781861332445517`*^9, 3.6781862013074713`*^9}, {3.678440012133279*^9, 
   3.6784400130380807`*^9}, {3.6784400817562017`*^9, 
   3.6784401117394543`*^9}, {3.678440299236183*^9, 3.678440343961462*^9}, {
   3.678440746644969*^9, 3.678440795909856*^9}, {3.6784410750723457`*^9, 
   3.6784410753687468`*^9}, {3.6872221332742443`*^9, 3.687222169856309*^9}, {
   3.6934841047914743`*^9, 3.6934842315715876`*^9}, 3.693484270103655*^9, {
   3.6934843294617596`*^9, 3.6934843386657753`*^9}, {3.693484409021899*^9, 
   3.6934845275525937`*^9}, {3.6934846015747237`*^9, 
   3.6934846751756535`*^9}, {3.6934848033999653`*^9, 3.6934848461782403`*^9}, 
   3.693484904647143*^9, {3.6934849755336676`*^9, 3.693485084832741*^9}, {
   3.693485123645609*^9, 3.693485131055622*^9}, {3.6934851655316825`*^9, 
   3.693485244670622*^9}, {3.6934856149259577`*^9, 3.693485696015582*^9}, {
   3.6934857509120784`*^9, 3.69348576916411*^9}, {3.69348580888178*^9, 
   3.693485915789768*^9}, {3.693486329848663*^9, 3.6934863394894795`*^9}, {
   3.6935432280295544`*^9, 3.693543331566936*^9}, {3.693543395823449*^9, 
   3.6935434394421253`*^9}, {3.69354348775541*^9, 3.693543514837058*^9}, {
   3.693543567627551*^9, 3.693543632492465*^9}, {3.69354366944893*^9, 
   3.6935437296972356`*^9}, {3.6935438475554423`*^9, 3.693543931046789*^9}, {
   3.693544603171178*^9, 3.693544641625245*^9}, {3.69354469007893*^9, 
   3.6935448362634687`*^9}, {3.6935450674558744`*^9, 3.693545077315092*^9}, {
   3.6935451126335545`*^9, 3.693545150470902*^9}, {3.6935452310762434`*^9, 
   3.693545272697117*^9}, {3.693545324960209*^9, 3.6935455512436066`*^9}, {
   3.69354559871449*^9, 3.69354568980305*^9}, {3.693545961420306*^9, 
   3.69354598159746*^9}, {3.6935462818133297`*^9, 3.6935463435473475`*^9}, {
   3.6935464430911226`*^9, 3.6935464678171663`*^9}, {3.6935465046020308`*^9, 
   3.6935465231972632`*^9}, {3.693547576528993*^9, 3.6935475849218082`*^9}, {
   3.693547692811598*^9, 3.6935477200960455`*^9}, {3.693547751530101*^9, 
   3.6935477945705767`*^9}, {3.6935478299202385`*^9, 3.693547969290883*^9}, {
   3.693548003129343*^9, 3.6935480173565674`*^9}, {3.693548069398259*^9, 
   3.6935481054031224`*^9}, {3.6935673945017843`*^9, 3.693567544137247*^9}, {
   3.693567580672511*^9, 3.6935676025125494`*^9}, {3.6935676481270294`*^9, 
   3.693567649531032*^9}, {3.69356770512953*^9, 3.693567783114066*^9}, {
   3.6935678536573906`*^9, 3.693567883625043*^9}, {3.693567914372697*^9, 
   3.6935680358657103`*^9}, {3.6935680952706146`*^9, 
   3.6935681020722265`*^9}, {3.693568142039497*^9, 3.6935681853295727`*^9}, {
   3.693570592792536*^9, 3.693570666596266*^9}, {3.69357070915314*^9, 
   3.6935707166411533`*^9}, {3.693570861471808*^9, 3.69357092538612*^9}, {
   3.6935709563063745`*^9, 3.6935709680375953`*^9}, {3.6935712905719523`*^9, 
   3.693571293816758*^9}, {3.6935713355000315`*^9, 3.6935713406480403`*^9}, {
   3.693571410302163*^9, 3.6935714688958654`*^9}, {3.693571514666346*^9, 
   3.6935715214533577`*^9}, {3.693613521003137*^9, 3.6936135525727415`*^9}, {
   3.6936136444074907`*^9, 3.693613677418774*^9}, {3.693613731566362*^9, 
   3.693613752254079*^9}, {3.6936138492152643`*^9, 3.693613860346358*^9}, {
   3.693613929823763*^9, 3.6936139382038507`*^9}, 3.693614165649536*^9, {
   3.693614248609654*^9, 3.693614248780197*^9}, {3.6936142808150845`*^9, 
   3.6936142812461305`*^9}, {3.693614368744974*^9, 3.6936143688278685`*^9}, {
   3.69361440890644*^9, 3.69361443509452*^9}, 3.6936144721679087`*^9, {
   3.693614505043395*^9, 3.6936145054099674`*^9}, {3.6936147925726423`*^9, 
   3.6936147929449635`*^9}, {3.6936148693823366`*^9, 
   3.6936149298991976`*^9}, {3.6936149968208237`*^9, 3.693614997409125*^9}, {
   3.6936150912358823`*^9, 3.6936150915721292`*^9}, {3.693615220943118*^9, 
   3.69361522143132*^9}, {3.6936153150157223`*^9, 3.6936153203941317`*^9}, {
   3.6936153516091986`*^9, 3.693615352500991*^9}, {3.6936168003680615`*^9, 
   3.693616803804449*^9}, {3.69361795404286*^9, 3.6936179545819254`*^9}, 
   3.6936179903518734`*^9, {3.693633169909931*^9, 3.693633223309825*^9}, 
   3.6936332875663376`*^9, {3.693633381696903*^9, 3.6936334286373854`*^9}, {
   3.693633486498887*^9, 3.6936334874816885`*^9}, 3.693633544546589*^9, {
   3.693633587821065*^9, 3.6936336317507424`*^9}, {3.693633879135977*^9, 
   3.693633928666064*^9}, {3.693638118045456*^9, 3.6936381189658575`*^9}, {
   3.6936381561563225`*^9, 3.6936381576227255`*^9}, {3.6936381900707817`*^9, 
   3.6936381906323833`*^9}, {3.6938331917618065`*^9, 3.693833192370208*^9}, 
   3.6938344367597275`*^9, {3.6953777849749002`*^9, 3.695377785536502*^9}, {
   3.6953781172065725`*^9, 3.695378117534173*^9}, {3.6954539739734354`*^9, 
   3.695454173294986*^9}, 3.6954542585928197`*^9, {3.695640786843095*^9, 
   3.6956409141699114`*^9}, {3.6956410955038605`*^9, 3.695641168401726*^9}, {
   3.695641202165758*^9, 3.6956413060916257`*^9}, {3.695641367788724*^9, 
   3.695641380268484*^9}, {3.695641639264801*^9, 3.6956416799488187`*^9}, 
   3.69564217933961*^9, {3.6956425270600204`*^9, 3.695642535530658*^9}, {
   3.6956425684304247`*^9, 3.695642587150065*^9}, {3.6957112139343977`*^9, 
   3.6957112610604877`*^9}, 3.701496970956296*^9, 3.701498393626874*^9, 
   3.7029589776988583`*^9, 3.7029590180098586`*^9, {3.7029591280348587`*^9, 
   3.7029591625718584`*^9}, {3.702959206235859*^9, 3.7029592104628587`*^9}, {
   3.7029592499638586`*^9, 3.7029592614278584`*^9}, 3.702959586322859*^9, 
   3.702959623261859*^9, 3.7029596600438585`*^9, {3.7029597187058587`*^9, 
   3.7029597200878587`*^9}, 3.7029597587198586`*^9, {3.7029597969428587`*^9, 
   3.7029598397298584`*^9}, {3.702960663643859*^9, 3.7029606704678583`*^9}, 
   3.7029607955348587`*^9, 3.703303051666314*^9, 3.703303750785536*^9, {
   3.721584198627989*^9, 3.72158420746242*^9}, {3.723910854056492*^9, 
   3.7239108740034857`*^9}, {3.7933496990991783`*^9, 3.793349703910049*^9}, {
   3.826697422893442*^9, 3.826697445457988*^9}, 3.826697543420491*^9, {
   3.826697613904471*^9, 3.826697623528056*^9}, 3.960882354129012*^9},
 FontSize->16,ExpressionUUID->"593deb96-5450-409e-b411-adea7ee9049e"],

Cell[BoxData[GridBox[{
   {
    RowBox[{
     RowBox[{
      RowBox[{"Clear", "[", 
       RowBox[{
       "carbonpriceopt0", ",", "\[Lambda]0", ",", "\[Lambda]0opt", ",", 
        "horizonguessO", ",", "horizonLboundO", ",", "horizonUboundO", ",", 
        "stepO", ",", "horizonguess", ",", "horizonLbound", ",", 
        "horizonUbound", ",", "step", ",", "resol", ",", "\[Mu]dotR1", ",", 
        "\[Mu]dotR2", ",", "YdotR12", ",", "deY", ",", "de\[Lambda]", ",", 
        "de\[Mu]", ",", "sol", ",", "Tend", ",", "Tfig", ",", "flagTend", ",",
         "Tendok", ",", "TX", ",", "tmax", ",", "TXo", ",", "Yb", ",", 
        "\[Mu]b", ",", "\[Lambda]b", ",", "Yf", ",", "\[Mu]f", ",", 
        "\[Lambda]f", ",", "x", ",", "Xbar", ",", "tax", ",", "budg", ",", 
        "eval", ",", "Inv", ",", "WO", ",", "g\[Lambda]O", ",", 
        "val\[Lambda]f", ",", "gyO", ",", "valYf", ",", "g\[Mu]O", ",", 
        "val\[Mu]f", ",", "gxO", ",", "valxf", ",", "geO", ",", "valef", ",", 
        "gpO", ",", "valpf"}], "]"}], ";"}], "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"**", "**", "**"}], "******)"}], "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "choices", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"carbonpriceopt0", "=", "40"}], ";"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Lambda]0", "=", 
       RowBox[{"carbonpriceopt0", "*", "\[Kappa]"}]}], ";"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Lambda]0opt", "=", "\[Lambda]0"}], ";"}], 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "find", " ", "the", " ", "horizon", " ", "for", " ", "backward", " ", 
       "shooting", " ", "procedure"}], " ", "*)"}], " ", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "intial", " ", "guess", " ", "for", " ", "the", " ", "search", " ", 
       "of", " ", "the", " ", "best", " ", "Tend", " ", "at", " ", 
       "optimum"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"horizonguessO", "=", "80"}], ";"}], "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{
       "interval", " ", "to", " ", "search", " ", "for", " ", "Tend", " ", 
        "for", " ", "all", " ", "cases"}], ",", " ", 
       RowBox[{
       "check", " ", "that", " ", "the", " ", "intial", " ", "guesses", " ", 
        "are", " ", "within", " ", "these", " ", "bounds"}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"horizonLboundO", "=", "40"}], ";"}], " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"horizonUboundO", "=", "110"}], ";"}], "\n", 
     RowBox[{
      RowBox[{"stepO", "=", "1"}], ";"}], "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"**", "**", "**"}], "******)"}], "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"horizonguess", "=", "horizonguessO"}], ";"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"horizonLbound", "=", "horizonLboundO"}], ";"}], " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"horizonUbound", "=", "horizonUboundO"}], ";"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"step", "=", "stepO"}], ";"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"resol", "[", "horizon_", "]"}], ":=", 
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\[Mu]dotR1", ",", "\[Mu]dotR2", ",", "YdotR12", ",", "deY", ",", 
           "de\[Lambda]", ",", "de\[Mu]", ",", "TX", ",", "tmax", ",", 
           "flagTend"}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Mu]dotR1", "[", 
            RowBox[{"\[Mu]_", ",", "y_", ",", "\[Lambda]_"}], "]"}], "=", " ", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}], " ", "\[Mu]"}], " ",
             "-", 
            RowBox[{"\[Beta]", "  ", "c1", " ", 
             SuperscriptBox["y", 
              RowBox[{
               RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"\[Mu]", "-", 
                RowBox[{"c1", " ", 
                 SuperscriptBox["y", 
                  RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], " ", 
            "-", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"cx", "+", "\[Lambda]"}], ")"}], " ", "\[Phi]"}]}]}], 
          " ", ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"\[Mu]dotR2", "[", 
            RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}], " ", "\[Mu]"}], " ",
             "-", " ", 
            RowBox[{"\[Beta]", " ", "c1", " ", 
             SuperscriptBox["y", 
              RowBox[{
               RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"\[Mu]", "-", 
                RowBox[{"c1", " ", 
                 SuperscriptBox["y", 
                  RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], "-", 
            " ", 
            RowBox[{"\[Gamma]", " ", 
             SuperscriptBox["\[Phi]", 
              RowBox[{"1", "-", 
               RowBox[{"1", "/", "\[Epsilon]"}]}]], "  ", 
             SuperscriptBox["y", 
              RowBox[{
               RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}]}]}], " ", ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"YdotR12", "[", 
            RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", " ", 
           RowBox[{
            RowBox[{
             FractionBox["1", "c2"], " ", 
             RowBox[{"(", 
              RowBox[{"\[Mu]", "-", " ", 
               RowBox[{"c1", " ", 
                SuperscriptBox["y", 
                 RowBox[{"-", "\[Beta]"}]]}]}], ")"}]}], "-", 
            RowBox[{"\[Delta]", " ", "y"}]}]}], ";", "\[IndentingNewLine]", 
          "\[IndentingNewLine]", 
          RowBox[{"deY", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"Y", "'"}], "[", "t", "]"}], "\[Equal]", 
            RowBox[{"-", 
             RowBox[{"YdotR12", "[", 
              RowBox[{
               RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
               RowBox[{"Y", "[", "t", "]"}]}], "]"}]}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"de\[Mu]", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Mu]", "'"}], "[", "t", "]"}], "\[Equal]", 
            RowBox[{"-", 
             RowBox[{"Piecewise", "[", 
              RowBox[{"{", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"{", " ", 
                 RowBox[{
                  RowBox[{"\[Mu]dotR1", "[", 
                   RowBox[{
                    RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
                    RowBox[{"Y", "[", "t", "]"}], ",", 
                    RowBox[{"\[Lambda]", "[", "t", "]"}]}], "]"}], ",", 
                  RowBox[{
                   RowBox[{"Y", "[", "t", "]"}], "\[LessEqual]", 
                   RowBox[{
                    FractionBox["1", "\[Phi]"], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox["\[Gamma]", 
                    RowBox[{"cx", "+", 
                    RowBox[{"\[Lambda]", "[", "t", "]"}]}]], ")"}], 
                    "\[Epsilon]"]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"\[Mu]dotR2", "[", 
                   RowBox[{
                    RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
                    RowBox[{"Y", "[", "t", "]"}]}], "]"}], ",", 
                  RowBox[{
                   RowBox[{"Y", "[", "t", "]"}], ">", 
                   RowBox[{
                    FractionBox["1", "\[Phi]"], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox["\[Gamma]", 
                    RowBox[{"cx", "+", 
                    RowBox[{"\[Lambda]", "[", "t", "]"}]}]], ")"}], 
                    "\[Epsilon]"]}]}]}], " ", "}"}]}], "\[IndentingNewLine]", 
               "}"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"de\[Lambda]", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Lambda]", "'"}], "[", "t", "]"}], "\[Equal]", 
            RowBox[{
             RowBox[{"-", "\[Rho]"}], " ", 
             RowBox[{"\[Lambda]", "[", "t", "]"}]}]}]}], ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"sol", "=", 
           RowBox[{"NDSolve", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"deY", ",", "de\[Mu]", ",", "de\[Lambda]", ",", 
               RowBox[{
                RowBox[{"Y", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"Ystar", 
                 RowBox[{"(", 
                  RowBox[{"1", "-", " ", 
                   SuperscriptBox["10", 
                    RowBox[{"-", "3"}]]}], ")"}]}]}], ",", 
               RowBox[{
                RowBox[{"\[Mu]", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"\[Mu]star", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   SuperscriptBox["10", 
                    RowBox[{"-", "3"}]]}], ")"}]}]}], ",", 
               RowBox[{
                RowBox[{"\[Lambda]", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"\[Lambda]0", " ", 
                 RowBox[{"Exp", "[", 
                  RowBox[{"\[Rho]", " ", "horizon"}], "]"}]}]}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"Y", ",", "\[Mu]", ",", "\[Lambda]"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"t", ",", "0", ",", "horizon"}], "}"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"Method", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"\"\<EventLocator\>\"", ",", "\[IndentingNewLine]", 
                RowBox[{"\"\<Event\>\"", "\[Rule]", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Y", "[", "t", "]"}], "-", 
                    RowBox[{
                    FractionBox["1", "\[Phi]"], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox["\[Gamma]", 
                    RowBox[{"cx", "+", 
                    RowBox[{"\[Lambda]", "[", "t", "]"}]}]], ")"}], 
                    "\[Epsilon]"]}]}], ",", 
                   RowBox[{
                    RowBox[{"Y", "[", "t", "]"}], "-", "Y0"}], ",", 
                   RowBox[{"t", "-", "horizon"}]}], "}"}]}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"\"\<EventAction\>\"", "\[RuleDelayed]", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"tX", "=", 
                    RowBox[{"horizon", "-", "t"}]}], ",", 
                   RowBox[{"Throw", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"flagTend", "=", "0"}], ",", 
                    RowBox[{"tmax", "=", 
                    RowBox[{"horizon", "-", "t"}]}]}], "}"}], ",", 
                    "\"\<StopIntegration\>\""}], "]"}], ",", 
                   RowBox[{"Throw", "[", 
                    RowBox[{
                    RowBox[{"flagTend", "=", "1"}], ",", 
                    "\"\<StopIntegration\>\""}], "]"}]}], "}"}]}]}], 
               "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"(*", " ", 
           RowBox[{
            RowBox[{"comment", "/", "uncomment"}], " ", "the", " ", 
            "following", " ", "two", " ", 
            RowBox[{"If", "[", "]"}], " ", "to", " ", 
            RowBox[{"hide", "/", "show"}], " ", "the", " ", "iteration", " ", 
            "on", " ", "the", " ", "horizon"}], " ", "*)"}], 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"flagTend", "\[Equal]", "1"}], ",", 
              RowBox[{"Print", "[", 
               RowBox[{
               "\"\<horizon too short, Tend =\>\"", ",", "horizon", ",", 
                "\"\< implying flagTend=\>\"", ",", "flagTend"}], "]"}]}], 
             "]"}], ";", "\[IndentingNewLine]", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"flagTend", "==", "0"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"TX", "=", 
                 RowBox[{"tX", "-", "tmax"}]}], ",", 
                RowBox[{"Print", "[", 
                 RowBox[{
                 "\"\<horizon sufficiently high, Tend =\>\"", ",", "horizon", 
                  ",", "\"\< implying tmax =\>\"", ",", "tmax", ",", 
                  "\"\< and TX =\>\"", ",", "TX"}], "]"}]}], "}"}]}], "]"}], 
            ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
          "flagTend"}]}], "]"}]}], ";"}], " ", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{
       "this", " ", "module", " ", "solves", " ", "the", " ", "dynamic", " ", 
        "system", " ", "backwards"}], ",", " ", 
       RowBox[{
        RowBox[{"and", " ", "gives", " ", "flagTend"}], "=", 
        RowBox[{
        "1", " ", "if", " ", "the", " ", "horizon", " ", "is", " ", 
         "sufficently", " ", "long"}]}], ",", " ", 
       RowBox[{
        RowBox[{"or", " ", "flagTend"}], "=", 
        RowBox[{
        "0", " ", "if", " ", "it", " ", "is", " ", "too", " ", "short"}]}]}], 
      " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"resol", "[", "horizonguess", "]"}], "\[Equal]", "1"}], ",", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", "=", "horizonguess"}], ",", 
          RowBox[{"i", "<", "horizonUbound"}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"resol", "[", "i", "]"}], "\[Equal]", "0"}], ",", 
            RowBox[{"Break", "[", "]"}]}], "]"}], ",", 
          RowBox[{"i", "=", 
           RowBox[{"i", "+", "step"}]}]}], "]"}], ",", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", "=", "horizonguess"}], ",", 
          RowBox[{"i", ">", "horizonLbound"}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"resol", "[", "i", "]"}], "\[Equal]", "1"}], ",", 
            RowBox[{"Break", "[", "]"}]}], "]"}], ",", 
          RowBox[{"i", "=", 
           RowBox[{"i", "-", "step"}]}]}], "]"}]}], "]"}], ";"}], " ", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{
       "depending", " ", "on", " ", "the", " ", "initial", " ", "tmax", " ", 
        "make", " ", "a", " ", "loop", " ", "on", " ", "Tend", " ", "until", 
        " ", "it", " ", "changes", " ", "from", " ", "too", " ", "short", " ",
         "of", " ", "an", " ", "horizon", " ", "to", " ", "a", " ", 
        "sufficently", " ", "long", " ", "one"}], ",", " ", 
       RowBox[{
       "or", " ", "vice", " ", "versa", " ", "from", " ", "a", " ", 
        "sufficently", " ", "long", " ", "one", " ", "to", " ", "a", " ", 
        "tooshort", " ", "one"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"resol", "[", "i", "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{"Tendok", "=", "i"}], ",", 
        RowBox[{"Tendok", "=", 
         RowBox[{"i", "+", "step"}]}]}], "]"}], ";"}], " ", 
     RowBox[{"(*", " ", 
      RowBox[{
      "stock", " ", "Tend", " ", "that", " ", "works", " ", "to", " ", "use", 
       " ", "it", " ", "out", " ", "of", " ", "the", " ", "loop"}], " ", 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{
      "\"\<Horizon for backward shooting: Tend= \>\"", ",", "Tendok"}], "]"}],
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{
       "now", " ", "that", " ", "the", " ", "right", " ", "horizon", " ", 
        "for", " ", "backward", " ", "shooting", " ", "has", " ", "been", " ",
         "found"}], ",", " ", 
       RowBox[{
       "run", " ", "the", " ", "procedure", " ", "and", " ", "determine", " ",
         "the", " ", "trajectory"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Clear", "[", 
       RowBox[{
       "Tend", ",", "Tfig", ",", "\[Mu]dotR1", ",", "\[Mu]dotR2", ",", 
        "YdotR12", ",", "dY", ",", "d\[Mu]", ",", "\[Lambda]", ",", "sol", 
        ",", "tX", ",", "tmax", ",", "TXo", ",", "Yb", ",", "\[Mu]b", ",", 
        "\[Lambda]b", ",", "Yf", ",", "\[Mu]f", ",", "\[Lambda]f", ",", "x", 
        ",", "Xbar", ",", "e", ",", "tax", ",", "budg", ",", "eval", ",", 
        "Inv", ",", "WO"}], "]"}], ";"}], "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"**", "**", "**"}], "******)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Tend", "=", "Tendok"}], ";"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Tfig", "=", 
       RowBox[{"0.999", " ", "Tend"}]}], ";"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Lambda]0", "=", "\[Lambda]0opt"}], ";"}], " ", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"**", "**", "**"}], "******)"}], "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Mu]dotR1", "[", 
        RowBox[{"\[Mu]_", ",", "y_", ",", "\[Lambda]_"}], "]"}], "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}], " ", "\[Mu]"}], " ", 
        "-", 
        RowBox[{"\[Beta]", "  ", "c1", " ", 
         SuperscriptBox["y", 
          RowBox[{
           RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Mu]", "-", 
            RowBox[{"c1", " ", 
             SuperscriptBox["y", 
              RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], " ", "-", 
        " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"cx", "+", "\[Lambda]"}], ")"}], " ", "\[Phi]"}]}]}], " ", 
      ";"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Mu]dotR2", "[", 
        RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}], " ", "\[Mu]"}], " ", 
        "-", " ", 
        RowBox[{"\[Beta]", " ", "c1", " ", 
         SuperscriptBox["y", 
          RowBox[{
           RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Mu]", "-", 
            RowBox[{"c1", " ", 
             SuperscriptBox["y", 
              RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], "-", " ", 
        RowBox[{"\[Gamma]", " ", 
         SuperscriptBox["\[Phi]", 
          RowBox[{"1", "-", 
           RowBox[{"1", "/", "\[Epsilon]"}]}]], "  ", 
         SuperscriptBox["y", 
          RowBox[{
           RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}]}]}], " ", ";"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"YdotR12", "[", 
        RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", " ", 
       RowBox[{
        RowBox[{
         FractionBox["1", "c2"], " ", 
         RowBox[{"(", 
          RowBox[{"\[Mu]", "-", " ", 
           RowBox[{"c1", " ", 
            SuperscriptBox["y", 
             RowBox[{"-", "\[Beta]"}]]}]}], ")"}]}], "-", 
        RowBox[{"\[Delta]", " ", "y"}]}]}], ";"}], "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"deY", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"Y", "'"}], "[", "t", "]"}], "\[Equal]", 
        RowBox[{"-", 
         RowBox[{"YdotR12", "[", 
          RowBox[{
           RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
           RowBox[{"Y", "[", "t", "]"}]}], "]"}]}]}]}], ";"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"de\[Mu]", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Mu]", "'"}], "[", "t", "]"}], "\[Equal]", 
        RowBox[{"-", 
         RowBox[{"Piecewise", "[", 
          RowBox[{"{", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"{", " ", 
             RowBox[{
              RowBox[{"\[Mu]dotR1", "[", 
               RowBox[{
                RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
                RowBox[{"Y", "[", "t", "]"}], ",", 
                RowBox[{"\[Lambda]", "[", "t", "]"}]}], "]"}], ",", 
              RowBox[{
               RowBox[{"Y", "[", "t", "]"}], "\[LessEqual]", 
               RowBox[{
                FractionBox["1", "\[Phi]"], 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"\[Gamma]", "/", 
                   RowBox[{"(", 
                    RowBox[{"cx", "+", 
                    RowBox[{"\[Lambda]", "[", "t", "]"}]}], ")"}]}], ")"}], 
                 "\[Epsilon]"]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"\[Mu]dotR2", "[", 
               RowBox[{
                RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
                RowBox[{"Y", "[", "t", "]"}]}], "]"}], ",", 
              RowBox[{
               RowBox[{"Y", "[", "t", "]"}], ">", 
               RowBox[{
                FractionBox["1", "\[Phi]"], 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"\[Gamma]", "/", 
                   RowBox[{"(", 
                    RowBox[{"cx", "+", 
                    RowBox[{"\[Lambda]", "[", "t", "]"}]}], ")"}]}], ")"}], 
                 "\[Epsilon]"]}]}]}], " ", "}"}]}], "\[IndentingNewLine]", 
           "}"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"de\[Lambda]", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Lambda]", "'"}], "[", "t", "]"}], "\[Equal]", 
        RowBox[{
         RowBox[{"-", "\[Rho]"}], " ", 
         RowBox[{"\[Lambda]", "[", "t", "]"}]}]}]}], ";"}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"sol", "=", 
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"deY", ",", "de\[Mu]", ",", "de\[Lambda]", ",", 
           RowBox[{
            RowBox[{"Y", "[", "0", "]"}], "\[Equal]", 
            RowBox[{"Ystar", 
             RowBox[{"(", 
              RowBox[{"1", "-", " ", 
               SuperscriptBox["10", 
                RowBox[{"-", "3"}]]}], ")"}]}]}], ",", 
           RowBox[{
            RowBox[{"\[Mu]", "[", "0", "]"}], "\[Equal]", 
            RowBox[{"\[Mu]star", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               SuperscriptBox["10", 
                RowBox[{"-", "3"}]]}], ")"}]}]}], ",", 
           RowBox[{
            RowBox[{"\[Lambda]", "[", "0", "]"}], "\[Equal]", 
            RowBox[{"\[Lambda]0", " ", 
             RowBox[{"Exp", "[", 
              RowBox[{"\[Rho]", " ", "Tend"}], "]"}]}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y", ",", "\[Mu]", ",", "\[Lambda]"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "Tend"}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Method", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<EventLocator\>\"", ",", "\[IndentingNewLine]", 
            RowBox[{"\"\<Event\>\"", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"Y", "[", "t", "]"}], "-", 
                RowBox[{
                 FractionBox["1", "\[Phi]"], 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"\[Gamma]", "/", 
                    RowBox[{"(", 
                    RowBox[{"cx", "+", 
                    RowBox[{"\[Lambda]", "[", "t", "]"}]}], ")"}]}], ")"}], 
                  "\[Epsilon]"]}]}], ",", 
               RowBox[{
                RowBox[{"Y", "[", "t", "]"}], "-", "Y0"}]}], "}"}]}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"\"\<EventAction\>\"", "\[RuleDelayed]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"tX", "=", 
                RowBox[{"Tend", "-", "t"}]}], ",", 
               RowBox[{"tmax", "=", 
                RowBox[{"Tend", "-", "t"}]}]}], "}"}]}]}], "}"}]}]}], "]"}]}],
       ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TXo", "=", 
       RowBox[{"tX", "-", "tmax"}]}], ";"}], "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Yb", "[", "t_", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"Y", "[", "t", "]"}], "/.", 
         RowBox[{"sol", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Mu]b", "[", "t_", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"\[Mu]", "[", "t", "]"}], "/.", 
         RowBox[{"sol", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Lambda]b", "[", "t_", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"\[Lambda]", "[", "t", "]"}], "/.", 
         RowBox[{"sol", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Yf", "[", "t_", "]"}], "=", 
       RowBox[{"Yb", "[", 
        RowBox[{"Tend", "-", "tmax", "-", "t"}], "]"}]}], ";"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Mu]f", "[", "t_", "]"}], "=", 
       RowBox[{"\[Mu]b", "[", 
        RowBox[{"Tend", "-", "tmax", "-", "t"}], "]"}]}], ";"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Lambda]f", "[", "t_", "]"}], "=", 
       RowBox[{"\[Lambda]b", "[", 
        RowBox[{"Tend", "-", "tmax", "-", "t"}], "]"}]}], ";"}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "[", "t_", "]"}], "=", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Gamma]", "/", 
           RowBox[{"(", 
            RowBox[{"cx", "+", 
             RowBox[{"\[Lambda]f", "[", "t", "]"}]}], ")"}]}], ")"}], 
         "\[Epsilon]"], "-", 
        RowBox[{"\[Phi]", " ", 
         RowBox[{"Yf", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Xbar", "=", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{"x", "[", "t", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "TXo"}], "}"}]}], "]"}]}], ";"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Precision of time horizon for backward shooting: tmax =   \>\"", 
        ",", "tmax"}], "]"}], ";"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Fossil phase out date: TX =   \>\"", ",", "TXo"}], "]"}], 
      ";"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Optimal cumulative emissions, thereafter carbon budget: Xbar =   \
\>\"", ",", "Xbar", ",", 
        "\"\< to be compared to a per capita share of the world carbon budget \
at 144 343.939 TWh, that is \>\"", ",", 
        RowBox[{"100", "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Xbar", "/", "144343.939"}], "-", "1"}], ")"}]}], ",", 
        "\"\<% lower\>\""}], "]"}], ";"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"e", "[", "t_", "]"}], "=", 
       RowBox[{"Piecewise", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "t", "]"}], "+", 
             RowBox[{"\[Phi]", " ", 
              RowBox[{"Yf", "[", "t", "]"}]}]}], ",", 
            RowBox[{"t", "<", "TXo"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[Phi]", " ", 
             RowBox[{"Yf", "[", "t", "]"}]}], ",", 
            RowBox[{"t", "\[GreaterEqual]", "TXo"}]}], "}"}]}], "}"}], 
        "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"tax", "[", "t_", "]"}], "=", 
       RowBox[{
        RowBox[{"\[Lambda]f", "[", "t", "]"}], " ", 
        RowBox[{"x", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"budg", "=", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{
            RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], " ", 
          RowBox[{"tax", "[", "t", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "TXo"}], "}"}]}], "]"}]}], ";"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"eval", "=", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{
            RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], " ", "\[Gamma]", " ", 
          SuperscriptBox[
           RowBox[{"e", "[", "t", "]"}], 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"1", "/", "\[Epsilon]"}]}], ")"}]]}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "TXo"}], "}"}]}], "]"}]}], ";"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Cost in terms of public finance: -budg/eval =\>\"", ",", " ", 
        RowBox[{
         RowBox[{"-", "budg"}], "/", "eval"}]}], "]"}], ";"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Inv", "[", "t_", "]"}], "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Mu]f", "[", "t", "]"}], "-", 
          RowBox[{"c1", " ", 
           SuperscriptBox[
            RowBox[{"Yf", "[", "t", "]"}], 
            RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], ";"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"WO", "=", 
       RowBox[{
        RowBox[{"NIntegrate", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Exp", "[", 
            RowBox[{
             RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[Gamma]", " ", 
               SuperscriptBox[
                RowBox[{"e", "[", "t", "]"}], 
                RowBox[{"1", "-", 
                 RowBox[{"1", "/", "\[Epsilon]"}]}]]}], 
              RowBox[{"1", "-", 
               RowBox[{"1", "/", "\[Epsilon]"}]}]], "-", 
             RowBox[{"c1", " ", 
              SuperscriptBox[
               RowBox[{"Yf", "[", "t", "]"}], 
               RowBox[{"-", "\[Beta]"}]], 
              RowBox[{"Inv", "[", "t", "]"}]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"c2", "/", "2"}], ")"}], " ", 
              SuperscriptBox[
               RowBox[{"Inv", "[", "t", "]"}], "2"]}]}], ")"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", "Tfig"}], "}"}]}], "]"}], "-", 
        RowBox[{"cx", " ", 
         RowBox[{"NIntegrate", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Exp", "[", 
             RowBox[{
              RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], "  ", 
            RowBox[{"x", "[", "t", "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "0", ",", "TXo"}], "}"}]}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"\[Gamma]", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Phi]", " ", "Ystar"}], ")"}], 
              RowBox[{"1", "-", 
               RowBox[{"1", "/", "\[Epsilon]"}]}]]}], 
            RowBox[{"1", "-", 
             RowBox[{"1", "/", "\[Epsilon]"}]}]], "-", 
           RowBox[{"c1", " ", "\[Delta]", " ", 
            SuperscriptBox["Ystar", 
             RowBox[{"1", "-", "\[Beta]"}]]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"c2", "/", "2"}], ")"}], " ", 
            SuperscriptBox["\[Delta]", "2"], "  ", 
            SuperscriptBox["Ystar", "2"]}]}], ")"}], "  ", 
         FractionBox[
          RowBox[{"Exp", "[", 
           RowBox[{
            RowBox[{"-", "\[Rho]"}], " ", 
            RowBox[{"(", "Tfig", ")"}]}], "]"}], "\[Rho]"]}]}]}], ";"}]}]},
   {"\[Placeholder]"}
  }]], "Input",
 CellChangeTimes->{{3.670751262663126*^9, 3.6707512716950045`*^9}, {
   3.6707571857820654`*^9, 3.670757725982362*^9}, {3.6707577720322423`*^9, 
   3.6707580313046722`*^9}, {3.670758110660347*^9, 3.6707582165148106`*^9}, {
   3.6707584462677717`*^9, 3.6707584879353724`*^9}, {3.670758525125772*^9, 
   3.670758677631154*^9}, {3.670758712667856*^9, 3.670758727659072*^9}, {
   3.6707587801829247`*^9, 3.6707590830476985`*^9}, {3.6707591682516212`*^9, 
   3.670759340889721*^9}, 3.676264331560053*^9, {3.6762643664095592`*^9, 
   3.676264388701388*^9}, {3.6762644454371333`*^9, 3.6762644949190645`*^9}, 
   3.676265225111653*^9, {3.6762653117372646`*^9, 3.676265317836708*^9}, 
   3.676265614494358*^9, {3.6762676904442005`*^9, 3.676267691894973*^9}, {
   3.676267761314638*^9, 3.6762677738723965`*^9}, {3.6762678074117517`*^9, 
   3.6762678324492702`*^9}, {3.676267911227755*^9, 3.676268044511592*^9}, {
   3.6762689986828485`*^9, 3.6762690074811354`*^9}, {3.67626910855224*^9, 
   3.6762691554140387`*^9}, {3.67626925364598*^9, 3.676269283628795*^9}, {
   3.6762693304749947`*^9, 3.676269352501912*^9}, {3.676269430064118*^9, 
   3.6762694664116516`*^9}, {3.676269682126686*^9, 3.6762697188042192`*^9}, {
   3.6762697794718413`*^9, 3.676269781000622*^9}, {3.6767818135145655`*^9, 
   3.6767818299725943`*^9}, {3.676781877178277*^9, 3.676782013553407*^9}, {
   3.6767820550972805`*^9, 3.676782245158105*^9}, {3.6767822829579716`*^9, 
   3.676782316747631*^9}, {3.6767823678845205`*^9, 3.6767824042637844`*^9}, {
   3.6767826046932263`*^9, 3.676782628702668*^9}, {3.6767826960635867`*^9, 
   3.6767826995423927`*^9}, {3.6767827454220734`*^9, 
   3.6767827928773565`*^9}, {3.6767828909674163`*^9, 
   3.6767829167708616`*^9}, {3.6767829980626044`*^9, 3.67678320181105*^9}, {
   3.6767832453351264`*^9, 3.6767832512475367`*^9}, {3.6767833203868585`*^9, 
   3.676783367608141*^9}, {3.6767834429361567`*^9, 3.6767836327260904`*^9}, {
   3.676783889237341*^9, 3.67678391145178*^9}, {3.676783947300643*^9, 
   3.6767839826347046`*^9}, {3.6767840141935606`*^9, 3.67678403531608*^9}, 
   3.676784201316972*^9, {3.676784335505494*^9, 3.676784361931941*^9}, {
   3.676784824707841*^9, 3.67678501748967*^9}, {3.6767851884191704`*^9, 
   3.676785228948041*^9}, 3.676785259024894*^9, {3.6767853194292*^9, 
   3.6767856309552307`*^9}, 3.676785727684484*^9, {3.676785769086957*^9, 
   3.6767857923933973`*^9}, 3.676785830644665*^9, {3.6767859019211903`*^9, 
   3.6767859726620045`*^9}, {3.6767861158430567`*^9, 
   3.6767862150124307`*^9}, {3.6767862720854187`*^9, 
   3.6767862821630363`*^9}, {3.6767865151504455`*^9, 
   3.6767865209536552`*^9}, {3.676786562150816*^9, 3.676786573632436*^9}, {
   3.676786751254348*^9, 3.676786752003149*^9}, {3.6767867885384135`*^9, 
   3.676786856538933*^9}, {3.676786886815276*^9, 3.6767868874080777`*^9}, {
   3.67678692891975*^9, 3.6767869294813514`*^9}, {3.676786979120639*^9, 
   3.6767869956254673`*^9}, {3.6767870404599466`*^9, 3.676787041427148*^9}, {
   3.676787088944832*^9, 3.676787143326527*^9}, {3.6767871742262683`*^9, 
   3.6767872414467864`*^9}, {3.676787506710343*^9, 3.6767875371927967`*^9}, 
   3.6767876487641926`*^9, {3.6767876904006653`*^9, 3.6767877003066826`*^9}, {
   3.6767877468727646`*^9, 3.6767878194871817`*^9}, {3.676787901948927*^9, 
   3.6767879511202126`*^9}, {3.676787996266692*^9, 3.676788108689172*^9}, {
   3.6767984764760714`*^9, 3.67679850390092*^9}, {3.676798701898559*^9, 
   3.6767987031933613`*^9}, {3.676798793876321*^9, 3.676798820396367*^9}, {
   3.676798883794879*^9, 3.6767989012981095`*^9}, {3.6767989778319354`*^9, 
   3.6767989975815697`*^9}, {3.676816436999343*^9, 3.676816453613366*^9}, {
   3.67681652720547*^9, 3.6768165282254715`*^9}, {3.6768822981645145`*^9, 
   3.6768823341069775`*^9}, 3.676882384245466*^9, {3.6768824210874205`*^9, 
   3.6768825120043807`*^9}, 3.6768825679616785`*^9, {3.6768828350732374`*^9, 
   3.67688283652404*^9}, {3.676882889080532*^9, 3.6768830203852525`*^9}, {
   3.6768830545961123`*^9, 3.67688307565615*^9}, {3.6781850229574013`*^9, 
   3.6781850442982388`*^9}, {3.678185317096918*^9, 3.6781853180017195`*^9}, {
   3.6781854089664793`*^9, 3.67818543770173*^9}, {3.6781854857030144`*^9, 
   3.678185487169417*^9}, {3.6781856754773474`*^9, 3.6781857222774296`*^9}, {
   3.678185823942808*^9, 3.678185855486064*^9}, 3.67818588754412*^9, {
   3.6781859338294015`*^9, 3.6781859743738728`*^9}, {3.6781860140291424`*^9, 
   3.6781860176951485`*^9}, {3.6781860497064047`*^9, 3.678186056476817*^9}, {
   3.6781861332445517`*^9, 3.6781862013074713`*^9}, {3.678440012133279*^9, 
   3.6784400130380807`*^9}, {3.6784400817562017`*^9, 
   3.6784401117394543`*^9}, {3.678440299236183*^9, 3.678440343961462*^9}, {
   3.678440746644969*^9, 3.678440795909856*^9}, {3.6784410750723457`*^9, 
   3.6784410753687468`*^9}, {3.6872221332742443`*^9, 3.687222169856309*^9}, {
   3.6934841047914743`*^9, 3.6934842315715876`*^9}, 3.693484270103655*^9, {
   3.6934843294617596`*^9, 3.6934843386657753`*^9}, {3.693484409021899*^9, 
   3.6934845275525937`*^9}, {3.6934846015747237`*^9, 
   3.6934846751756535`*^9}, {3.6934848033999653`*^9, 3.6934848461782403`*^9}, 
   3.693484904647143*^9, {3.6934849755336676`*^9, 3.693485084832741*^9}, {
   3.693485123645609*^9, 3.693485131055622*^9}, {3.6934851655316825`*^9, 
   3.693485244670622*^9}, {3.6934856149259577`*^9, 3.693485696015582*^9}, {
   3.6934857509120784`*^9, 3.69348576916411*^9}, {3.69348580888178*^9, 
   3.693485915789768*^9}, {3.693486329848663*^9, 3.6934863394894795`*^9}, {
   3.6935432280295544`*^9, 3.693543331566936*^9}, {3.693543395823449*^9, 
   3.6935434394421253`*^9}, {3.69354348775541*^9, 3.693543514837058*^9}, {
   3.693543567627551*^9, 3.693543632492465*^9}, {3.69354366944893*^9, 
   3.6935437296972356`*^9}, {3.6935438475554423`*^9, 3.693543931046789*^9}, {
   3.693544603171178*^9, 3.693544641625245*^9}, {3.69354469007893*^9, 
   3.6935448362634687`*^9}, {3.6935450674558744`*^9, 3.693545077315092*^9}, {
   3.6935451126335545`*^9, 3.693545150470902*^9}, {3.6935452310762434`*^9, 
   3.693545272697117*^9}, {3.693545324960209*^9, 3.6935455512436066`*^9}, {
   3.69354559871449*^9, 3.69354568980305*^9}, {3.693545961420306*^9, 
   3.69354598159746*^9}, {3.6935462818133297`*^9, 3.6935463435473475`*^9}, {
   3.6935464430911226`*^9, 3.6935464678171663`*^9}, {3.6935465046020308`*^9, 
   3.6935465231972632`*^9}, {3.693547576528993*^9, 3.6935475849218082`*^9}, {
   3.693547692811598*^9, 3.6935477200960455`*^9}, {3.693547751530101*^9, 
   3.6935477945705767`*^9}, {3.6935478299202385`*^9, 3.693547969290883*^9}, {
   3.693548003129343*^9, 3.6935480173565674`*^9}, {3.693548069398259*^9, 
   3.6935481054031224`*^9}, {3.6935673945017843`*^9, 3.693567544137247*^9}, {
   3.693567580672511*^9, 3.6935676025125494`*^9}, {3.6935676481270294`*^9, 
   3.693567649531032*^9}, {3.69356770512953*^9, 3.693567783114066*^9}, {
   3.6935678536573906`*^9, 3.693567883625043*^9}, {3.693567914372697*^9, 
   3.6935680358657103`*^9}, {3.6935680952706146`*^9, 
   3.6935681020722265`*^9}, {3.693568142039497*^9, 3.6935681853295727`*^9}, {
   3.693570592792536*^9, 3.693570666596266*^9}, {3.69357070915314*^9, 
   3.6935707166411533`*^9}, {3.693570861471808*^9, 3.69357092538612*^9}, {
   3.6935709563063745`*^9, 3.6935709680375953`*^9}, {3.6935712905719523`*^9, 
   3.693571293816758*^9}, {3.6935713355000315`*^9, 3.6935713406480403`*^9}, {
   3.693571410302163*^9, 3.6935714688958654`*^9}, {3.693571514666346*^9, 
   3.6935715214533577`*^9}, {3.693613521003137*^9, 3.6936135525727415`*^9}, {
   3.6936136444074907`*^9, 3.693613677418774*^9}, {3.693613731566362*^9, 
   3.693613752254079*^9}, {3.6936138492152643`*^9, 3.693613860346358*^9}, {
   3.693613929823763*^9, 3.6936139382038507`*^9}, 3.693614165649536*^9, {
   3.693614248609654*^9, 3.693614248780197*^9}, {3.6936142808150845`*^9, 
   3.6936142812461305`*^9}, {3.693614368744974*^9, 3.6936143688278685`*^9}, {
   3.69361440890644*^9, 3.69361443509452*^9}, 3.6936144721679087`*^9, {
   3.693614505043395*^9, 3.6936145054099674`*^9}, {3.6936147925726423`*^9, 
   3.6936147929449635`*^9}, {3.6936148693823366`*^9, 
   3.6936149298991976`*^9}, {3.6936149968208237`*^9, 3.693614997409125*^9}, {
   3.6936150912358823`*^9, 3.6936150915721292`*^9}, {3.693615220943118*^9, 
   3.69361522143132*^9}, {3.6936153150157223`*^9, 3.6936153203941317`*^9}, {
   3.6936153516091986`*^9, 3.693615352500991*^9}, {3.6936168003680615`*^9, 
   3.693616803804449*^9}, {3.69361795404286*^9, 3.6936179545819254`*^9}, 
   3.6936179903518734`*^9, {3.693633169909931*^9, 3.693633223309825*^9}, 
   3.6936332875663376`*^9, {3.693633381696903*^9, 3.6936334286373854`*^9}, {
   3.693633486498887*^9, 3.6936334874816885`*^9}, 3.693633544546589*^9, {
   3.693633587821065*^9, 3.6936336317507424`*^9}, {3.693633879135977*^9, 
   3.693633928666064*^9}, {3.693638118045456*^9, 3.6936381189658575`*^9}, {
   3.6936381561563225`*^9, 3.6936381576227255`*^9}, {3.6936381900707817`*^9, 
   3.6936381906323833`*^9}, {3.6938331917618065`*^9, 3.693833192370208*^9}, 
   3.6938344367597275`*^9, {3.6953777849749002`*^9, 3.695377785536502*^9}, {
   3.6953781172065725`*^9, 3.695378117534173*^9}, {3.6954539739734354`*^9, 
   3.695454173294986*^9}, 3.6954542585928197`*^9, {3.695640786843095*^9, 
   3.6956409141699114`*^9}, {3.6956410955038605`*^9, 3.695641168401726*^9}, {
   3.695641202165758*^9, 3.6956413060916257`*^9}, {3.695641367788724*^9, 
   3.695641380268484*^9}, {3.695641639264801*^9, 3.6956416799488187`*^9}, 
   3.69564217933961*^9, {3.6956425270600204`*^9, 3.695642535530658*^9}, {
   3.6956425684304247`*^9, 3.695642587150065*^9}, {3.6957112139343977`*^9, 
   3.6957112610604877`*^9}, 3.701496970956296*^9, 3.701498393626874*^9, 
   3.7029589776988583`*^9, 3.7029590180098586`*^9, {3.7029591280348587`*^9, 
   3.7029591625718584`*^9}, {3.702959206235859*^9, 3.7029592104628587`*^9}, {
   3.7029592499638586`*^9, 3.7029592614278584`*^9}, 3.702959586322859*^9, 
   3.702959623261859*^9, 3.7029596600438585`*^9, {3.7029597187058587`*^9, 
   3.7029597200878587`*^9}, 3.7029597587198586`*^9, {3.7029597969428587`*^9, 
   3.7029598397298584`*^9}, {3.702960663643859*^9, 3.7029606704678583`*^9}, 
   3.7029607955348587`*^9, 3.703303051666314*^9, 3.703303750785536*^9, {
   3.721584198627989*^9, 3.72158420746242*^9}, 3.723910854056492*^9, {
   3.724049684293146*^9, 3.7240497057400923`*^9}, {3.7931880009172487`*^9, 
   3.793188005504385*^9}, {3.793188084368533*^9, 3.793188088842434*^9}, {
   3.7931881271888514`*^9, 3.793188159375671*^9}, {3.793188189619193*^9, 
   3.793188391647376*^9}, {3.7931884294803047`*^9, 3.793188458587303*^9}, {
   3.793188491796014*^9, 3.7931885166638803`*^9}, {3.79318859169641*^9, 
   3.7931886624860287`*^9}, {3.793188695856659*^9, 3.7931888736279373`*^9}, 
   3.793188933882399*^9, {3.793188990830714*^9, 3.7931891144273157`*^9}, {
   3.7931891611098347`*^9, 3.7931891735907927`*^9}, {3.7931908105997467`*^9, 
   3.793190941030815*^9}, {3.7931912304827642`*^9, 3.7931912345906467`*^9}, {
   3.7931912659536343`*^9, 3.793191273304207*^9}, {3.79319131893259*^9, 
   3.793191319607518*^9}, {3.7931925635322647`*^9, 3.793192581302208*^9}, {
   3.793192647053029*^9, 3.793192822056115*^9}, {3.793192923556085*^9, 
   3.793192941529627*^9}, {3.793192993052414*^9, 3.7931930609033937`*^9}, {
   3.793193107958227*^9, 3.793193376449212*^9}, {3.793193406813929*^9, 
   3.793193551016382*^9}, {3.793198150906685*^9, 3.793198175044301*^9}, {
   3.7933497060962257`*^9, 3.7933497125818233`*^9}, {3.7933497702765408`*^9, 
   3.793349865920828*^9}, {3.7933499075136633`*^9, 3.793349908386211*^9}, {
   3.7933499445399303`*^9, 3.793350083364435*^9}, {3.793350143654668*^9, 
   3.793350246839375*^9}, {3.79335027773041*^9, 3.793350290591893*^9}, {
   3.793350368505329*^9, 3.79335037103788*^9}, {3.793350614307704*^9, 
   3.7933506639435062`*^9}, {3.793350822370388*^9, 3.7933509205801563`*^9}, 
   3.793351070671195*^9, {3.793351121807559*^9, 3.793351169197198*^9}, {
   3.7933512281023693`*^9, 3.793351258947132*^9}, {3.793352388481485*^9, 
   3.793352486066194*^9}, {3.793352525423292*^9, 3.793352526237858*^9}, {
   3.7933525721241693`*^9, 3.793352586872217*^9}, {3.793353391454451*^9, 
   3.793353407928596*^9}, {3.79335344307436*^9, 3.793353445674035*^9}, {
   3.7933534875003633`*^9, 3.793353515926206*^9}, {3.79335356134193*^9, 
   3.7933536183553553`*^9}, {3.793353653461795*^9, 3.7933537175456257`*^9}, {
   3.793353755721034*^9, 3.793353813084787*^9}, {3.793353848503376*^9, 
   3.7933538635981627`*^9}, {3.793353905042983*^9, 3.7933539446753197`*^9}, {
   3.793353987850835*^9, 3.79335405636241*^9}, {3.7933540926310587`*^9, 
   3.793354107122456*^9}, {3.793354239120214*^9, 3.793354244186799*^9}, {
   3.793354284731969*^9, 3.793354429293524*^9}, {3.793354700130072*^9, 
   3.793354714721874*^9}, {3.793354911920526*^9, 3.793354948341448*^9}, {
   3.7933550116928997`*^9, 3.793355066011907*^9}, 3.7933551599395227`*^9, {
   3.793359060597492*^9, 3.793359062298066*^9}, {3.79335909399081*^9, 
   3.793359129542062*^9}, {3.793359164423163*^9, 3.793359183234304*^9}, {
   3.793359344283964*^9, 3.793359364371585*^9}, {3.793359455714467*^9, 
   3.793359570500114*^9}, {3.793359647353744*^9, 3.793359734392057*^9}, {
   3.793359764510075*^9, 3.793359846515663*^9}, {3.7933604929563637`*^9, 
   3.7933604947601423`*^9}, {3.7933605590544643`*^9, 3.793360564488566*^9}, {
   3.793362588404407*^9, 3.7933626528740883`*^9}, {3.79336276023658*^9, 
   3.793362761477447*^9}, {3.7933628236209593`*^9, 3.7933628273988857`*^9}, {
   3.7933629161655684`*^9, 3.7933629171265717`*^9}, {3.7933629562953243`*^9, 
   3.793362957313939*^9}, {3.7933632145810633`*^9, 3.793363225948722*^9}, {
   3.7933632570361557`*^9, 3.793363263462455*^9}, {3.793363324618321*^9, 
   3.7933633779109*^9}, {3.793363504542849*^9, 3.793363552316599*^9}, {
   3.793365500143918*^9, 3.793365529419841*^9}, {3.793365574233283*^9, 
   3.793365588466872*^9}, {3.793365696645442*^9, 3.793365706584844*^9}, {
   3.7933657458412952`*^9, 3.793365781538432*^9}, {3.793372110274445*^9, 
   3.793372166129635*^9}, {3.793372387771978*^9, 3.7933723920093946`*^9}, {
   3.7947177904207478`*^9, 3.794717798738975*^9}, {3.7947181219478197`*^9, 
   3.794718122430142*^9}, {3.794718828541239*^9, 3.7947188581084843`*^9}, {
   3.794718946169038*^9, 3.7947191269987907`*^9}, {3.794719199352583*^9, 
   3.794719307654913*^9}, 3.794719351281196*^9, {3.794719396798911*^9, 
   3.7947195103320932`*^9}, {3.794719543252046*^9, 3.794719576311187*^9}, 
   3.794719624630396*^9, {3.794719744594618*^9, 3.794719888680928*^9}, {
   3.7947200061759253`*^9, 3.794720055056363*^9}, {3.794720378930176*^9, 
   3.7947203849998302`*^9}, 3.794720863569632*^9, {3.794720976602182*^9, 
   3.794720999815135*^9}, {3.79534253724367*^9, 3.795342538144002*^9}, {
   3.796718242600308*^9, 3.796718418573107*^9}, {3.796718452879662*^9, 
   3.7967184747395144`*^9}, 3.796718561936857*^9, {3.7967186068213587`*^9, 
   3.796718905298978*^9}, {3.796721345600811*^9, 3.796721349201768*^9}, {
   3.796725000865369*^9, 3.796725074484085*^9}, {3.796725117130652*^9, 
   3.796725127401751*^9}, {3.7967326791118298`*^9, 3.7967326836949778`*^9}, {
   3.7967981751464777`*^9, 3.79679818048701*^9}, {3.796798349242095*^9, 
   3.796798354156505*^9}, {3.826607030813938*^9, 3.826607073139163*^9}, {
   3.82660710751508*^9, 3.8266073670394278`*^9}, {3.826607475518661*^9, 
   3.8266074892015343`*^9}, {3.826610892038322*^9, 3.826610916802609*^9}, {
   3.826610952316321*^9, 3.826610961158359*^9}, {3.826611034501*^9, 
   3.8266110349889097`*^9}, {3.826611121659256*^9, 3.82661112692102*^9}, {
   3.826697105991394*^9, 3.8266971903900967`*^9}, {3.826697243977476*^9, 
   3.826697245449457*^9}, {3.850565224902638*^9, 3.8505652257873287`*^9}, {
   3.8505653272125883`*^9, 3.850565405637702*^9}, {3.850565484857513*^9, 
   3.8505655365165443`*^9}, 3.8505660583171873`*^9, {3.8507145474188223`*^9, 
   3.850714555008305*^9}, {3.8507208227283983`*^9, 3.850720851142372*^9}, {
   3.850720907597446*^9, 3.85072091130641*^9}, {3.850720985202376*^9, 
   3.850721042717485*^9}, {3.8507210998065987`*^9, 3.850721126593391*^9}, {
   3.8507211665452843`*^9, 3.850721167316584*^9}, {3.850721222006665*^9, 
   3.850721256136469*^9}, {3.8507214852845173`*^9, 3.85072149777999*^9}, 
   3.8507905898774853`*^9, {3.850790955282075*^9, 3.850790996235496*^9}, {
   3.8538459825206537`*^9, 3.8538459867698793`*^9}, {3.86231914466022*^9, 
   3.862319304275936*^9}, {3.862320929311543*^9, 3.86232093348895*^9}, 
   3.862383510987793*^9, {3.862383568211665*^9, 3.862383627973391*^9}, {
   3.862452881334466*^9, 3.862452923317121*^9}, {3.862453154982504*^9, 
   3.862453159894092*^9}, {3.8625406738803673`*^9, 3.8625407105661097`*^9}, {
   3.862540745438299*^9, 3.862540753094369*^9}, {3.862541221283634*^9, 
   3.8625412219374323`*^9}, {3.862559091298161*^9, 3.8625591034606752`*^9}, {
   3.862559767154887*^9, 3.862559773489298*^9}, 3.862560148077364*^9, {
   3.8633313477230787`*^9, 3.863331348631678*^9}, {3.863331530718408*^9, 
   3.8633315322071733`*^9}, {3.863331707494925*^9, 3.863331708000532*^9}, {
   3.864707451938814*^9, 3.864707455604232*^9}, {3.8647074883368*^9, 
   3.8647075426345987`*^9}, {3.864707918228544*^9, 3.8647079703558702`*^9}, {
   3.864711583391067*^9, 3.864711585311079*^9}, {3.8647859718623543`*^9, 
   3.864785972703216*^9}, {3.864786306565043*^9, 3.864786307736195*^9}, {
   3.864786391208953*^9, 3.864786392410693*^9}, {3.864786445836995*^9, 
   3.864786465086994*^9}, {3.864786516991866*^9, 3.8647865516227493`*^9}, {
   3.864786615931719*^9, 3.864786641014011*^9}, {3.864786688930944*^9, 
   3.8647867026354933`*^9}, {3.86478677832403*^9, 3.864786780158326*^9}, {
   3.8647868105447083`*^9, 3.864786843987261*^9}, {3.8647868776699*^9, 
   3.864786998877913*^9}, {3.874377708796736*^9, 3.874377791255623*^9}, {
   3.874377847388432*^9, 3.874377850572556*^9}, {3.87437790570718*^9, 
   3.87437796049651*^9}, {3.874378557348881*^9, 3.874378565573555*^9}, {
   3.874378602600233*^9, 3.8743786093668833`*^9}, {3.874378898446972*^9, 
   3.874378912490312*^9}, {3.874378944028799*^9, 3.874378964045134*^9}, {
   3.8743790450270653`*^9, 3.874379087621449*^9}, {3.874379177198141*^9, 
   3.874379268656006*^9}, {3.8743793142847967`*^9, 3.874379409019504*^9}, {
   3.874379469312154*^9, 3.874379469678707*^9}, {3.874379846725019*^9, 
   3.8743798545078897`*^9}, {3.874379928547876*^9, 3.874379964917324*^9}, {
   3.8743809038809223`*^9, 3.8743809154928837`*^9}, {3.874381073737297*^9, 
   3.8743810797908487`*^9}, {3.874404034276958*^9, 3.8744040377334633`*^9}, {
   3.8744041548385277`*^9, 3.874404218473815*^9}, {3.874404420973915*^9, 
   3.874404428796146*^9}, {3.8744044965562*^9, 3.874404504764011*^9}, {
   3.8744045579892387`*^9, 3.874404558301258*^9}, {3.8744046158198*^9, 
   3.874404655423709*^9}, {3.8744047767731113`*^9, 3.87440483327258*^9}, {
   3.8744048702166023`*^9, 3.874404875501791*^9}, {3.874404914395797*^9, 
   3.874404925688191*^9}, {3.874406809222024*^9, 3.8744068212134533`*^9}, {
   3.8744069662683067`*^9, 3.874407011118484*^9}, {3.874407213598641*^9, 
   3.87440721940292*^9}, {3.87440829849443*^9, 3.874408322058764*^9}, {
   3.874408356437621*^9, 3.874408362637044*^9}, {3.8744084510735197`*^9, 
   3.874408452203649*^9}, {3.8744084831833057`*^9, 3.8744085115311623`*^9}, {
   3.8744085737623873`*^9, 3.874408595148974*^9}, {3.874408626957897*^9, 
   3.874408638875041*^9}, {3.874408691324277*^9, 3.874408745743751*^9}, {
   3.874408884916445*^9, 3.874408892202745*^9}, {3.874408948764846*^9, 
   3.874408991268899*^9}, {3.874409128758835*^9, 3.874409130640971*^9}, {
   3.874409163100914*^9, 3.87440920603832*^9}, {3.874409236528407*^9, 
   3.8744092627568274`*^9}, {3.8744093952611313`*^9, 3.87440941201013*^9}, {
   3.8744094916998043`*^9, 3.874409502223529*^9}, {3.874409543929348*^9, 
   3.874409586043961*^9}, {3.87440962084109*^9, 3.8744097178130074`*^9}, {
   3.874409749752223*^9, 3.874409755724513*^9}, {3.8744097898774776`*^9, 
   3.874409791813542*^9}, {3.874409922047406*^9, 3.874409973901188*^9}, {
   3.8744100357855453`*^9, 3.874410048993099*^9}, {3.8744100876321*^9, 
   3.874410123800612*^9}, {3.874410158586767*^9, 3.8744101971128187`*^9}, {
   3.874410234893258*^9, 3.874410260667652*^9}, {3.876305448772044*^9, 
   3.876305472348136*^9}, {3.8763056392820587`*^9, 3.8763056395524054`*^9}, {
   3.876305699235827*^9, 3.87630576408282*^9}, {3.876305846142632*^9, 
   3.876305867926927*^9}, {3.876305902076508*^9, 3.876305930169076*^9}, {
   3.8763059659733143`*^9, 3.876306064403901*^9}, {3.876306102649085*^9, 
   3.876306175692377*^9}, {3.876306206432662*^9, 3.87630636203054*^9}, {
   3.876306419532148*^9, 3.876306431746908*^9}, {3.8763064974902763`*^9, 
   3.876306633652034*^9}, {3.876717408990799*^9, 3.876717485364678*^9}, {
   3.876717540206698*^9, 3.876717608297365*^9}, {3.876717643313294*^9, 
   3.87671776872189*^9}, {3.877558980593986*^9, 3.8775590347609863`*^9}, {
   3.877559403412407*^9, 3.87755946855142*^9}, {3.877559550329138*^9, 
   3.8775596113810387`*^9}, {3.8775596821461287`*^9, 3.877559761419991*^9}, {
   3.877560705694688*^9, 3.8775607204322767`*^9}, {3.877560769399831*^9, 
   3.877560771273346*^9}, {3.877560830950183*^9, 3.877560838064814*^9}, {
   3.8775608839219923`*^9, 3.877560907396205*^9}, {3.877567181295479*^9, 
   3.877567215318018*^9}, {3.877567255874152*^9, 3.877567274082872*^9}, {
   3.877567315847021*^9, 3.877567338570108*^9}, {3.877567400672844*^9, 
   3.8775674626762667`*^9}, {3.8776797127916822`*^9, 3.877679773810649*^9}, {
   3.8776807158630157`*^9, 3.8776807640540876`*^9}, {3.8776808323941092`*^9, 
   3.877680860374054*^9}, {3.879737311284034*^9, 3.879737355169688*^9}, {
   3.879737402501253*^9, 3.879737404504861*^9}, {3.879737466653247*^9, 
   3.8797375076548767`*^9}, {3.8797375607735243`*^9, 3.879737569281066*^9}, {
   3.8797376413992357`*^9, 3.879737764360937*^9}, {3.8797378190899477`*^9, 
   3.8797378280780563`*^9}, {3.8797379395086308`*^9, 
   3.8797379411649837`*^9}, {3.879738134925088*^9, 3.8797381951325274`*^9}, {
   3.879738225753271*^9, 3.879738275360238*^9}, {3.879738308533955*^9, 
   3.879738414828977*^9}, {3.879738476560655*^9, 3.879738496710761*^9}, {
   3.879738533145924*^9, 3.879738533687097*^9}, {3.879738616504771*^9, 
   3.879738655532095*^9}, {3.87973893131009*^9, 3.879738932283251*^9}, {
   3.879739012244104*^9, 3.879739013040175*^9}, {3.879739598881934*^9, 
   3.879739654177236*^9}, {3.8797397017030478`*^9, 3.879739704469261*^9}, {
   3.882355207029234*^9, 3.88235523031752*^9}, {3.8823553989175587`*^9, 
   3.882355460536107*^9}, {3.8823557611183853`*^9, 3.882355813869432*^9}, {
   3.882355867441536*^9, 3.882355930608233*^9}, {3.882356221227284*^9, 
   3.882356244552244*^9}, {3.8826069196920033`*^9, 3.882606997032227*^9}, {
   3.882607118279958*^9, 3.8826071198951607`*^9}, {3.882607719290852*^9, 
   3.8826077202072372`*^9}, {3.8829325269127283`*^9, 3.882932558555786*^9}, {
   3.882938994906801*^9, 3.882939097400223*^9}, {3.882939132787393*^9, 
   3.882939156955977*^9}, {3.88293919992428*^9, 3.882939340441925*^9}, {
   3.882963148428719*^9, 3.882963168989664*^9}, {3.882963446404553*^9, 
   3.8829635060906153`*^9}, {3.883216370580205*^9, 3.883216378520471*^9}, {
   3.883219086738048*^9, 3.8832192537454557`*^9}, {3.8832196048420515`*^9, 
   3.8832197753032923`*^9}, {3.883221798772625*^9, 3.88322180094823*^9}, {
   3.8836426770998487`*^9, 3.883642719513868*^9}, {3.883894383647066*^9, 
   3.883894553324314*^9}, {3.8838946228748493`*^9, 3.883894730626317*^9}, {
   3.883894801446479*^9, 3.8838948098953404`*^9}, {3.8838948827153*^9, 
   3.883894947438719*^9}, {3.883895037069205*^9, 3.883895082691549*^9}, {
   3.883911717854969*^9, 3.883911719143618*^9}, {3.8839117503551836`*^9, 
   3.8839118316166444`*^9}, {3.883915618201823*^9, 3.883915638289873*^9}, {
   3.884925194926728*^9, 3.8849252119389887`*^9}, {3.884925244502819*^9, 
   3.8849252449897275`*^9}, {3.884925337185817*^9, 3.8849253979119205`*^9}, {
   3.8849256643818183`*^9, 3.8849256652824497`*^9}, {3.884925699474534*^9, 
   3.8849256996756525`*^9}, {3.8849257826060605`*^9, 
   3.8849258760763483`*^9}, {3.884927153237705*^9, 3.8849271739840145`*^9}, {
   3.8849300035805693`*^9, 3.88493006069184*^9}, {3.8849403728497615`*^9, 
   3.8849404435294333`*^9}, {3.8849408029578457`*^9, 3.8849408059610925`*^9}, 
   3.8849408578802786`*^9, {3.8849430342803926`*^9, 3.88494310880646*^9}, {
   3.8849444247562246`*^9, 3.8849444734541206`*^9}, {3.8849459843006945`*^9, 
   3.8849460148489685`*^9}, {3.884965748749299*^9, 3.884965776546872*^9}, {
   3.88497025921177*^9, 3.884970271631178*^9}, {3.8849703016924334`*^9, 
   3.8849703053114653`*^9}, {3.8849703365133476`*^9, 3.884970337432673*^9}, {
   3.887085788511716*^9, 3.8870857920567803`*^9}, {3.887088047389783*^9, 
   3.8870880499527273`*^9}, {3.8871283545012383`*^9, 
   3.8871283585782695`*^9}, {3.890796089096993*^9, 3.890796091625053*^9}, {
   3.890797056490861*^9, 3.890797059892281*^9}, {3.890809423408327*^9, 
   3.890809424560087*^9}, {3.890809695863484*^9, 3.8908096972134733`*^9}, {
   3.895302910712243*^9, 3.8953029120074387`*^9}, {3.8963241465758944`*^9, 
   3.8963241479033623`*^9}, {3.896327734702978*^9, 3.8963277357386703`*^9}, {
   3.896342230849022*^9, 3.896342232067952*^9}, {3.896342607310939*^9, 
   3.896342608133628*^9}, {3.896342836783366*^9, 3.896342837116932*^9}, {
   3.897991923969474*^9, 3.8979919522679653`*^9}, {3.897992030674815*^9, 
   3.897992061424924*^9}, {3.897997320821497*^9, 3.897997398305738*^9}, {
   3.8986773744063997`*^9, 3.898677411413403*^9}, {3.8986774880283327`*^9, 
   3.89867751527395*^9}, {3.898677651251698*^9, 3.898677750724757*^9}, {
   3.8986778259595013`*^9, 3.898677826467874*^9}, {3.8986778759275017`*^9, 
   3.8986778918202543`*^9}, {3.898756851977627*^9, 3.898756896029867*^9}, {
   3.898756951061558*^9, 3.8987569515786877`*^9}, {3.8987575775118427`*^9, 
   3.898757595264154*^9}, {3.898758122939032*^9, 3.898758247507864*^9}, {
   3.898768444476338*^9, 3.898768453469655*^9}, {3.898934108661418*^9, 
   3.8989341620029697`*^9}, {3.909745253092434*^9, 3.909745324623945*^9}, {
   3.9097498745326667`*^9, 3.909749888643403*^9}, {3.90974992896657*^9, 
   3.9097499489185476`*^9}, {3.909750025538555*^9, 3.9097500265986943`*^9}, {
   3.909750124061116*^9, 3.909750134795854*^9}, {3.9097502260651674`*^9, 
   3.9097502264766006`*^9}, {3.909750410329754*^9, 3.9097504194198875`*^9}, {
   3.90975050960888*^9, 3.9097505100418415`*^9}, {3.9097513152780323`*^9, 
   3.9097513281275997`*^9}, {3.9097514195674706`*^9, 3.909751528454504*^9}, {
   3.9097518004180207`*^9, 3.9097518570687714`*^9}, {3.9098271371265545`*^9, 
   3.9098271745751348`*^9}, {3.9099066126572237`*^9, 3.909906613187879*^9}, {
   3.9100688537456427`*^9, 3.9100688847158175`*^9}, {3.91006900699*^9, 
   3.9100690147395496`*^9}, {3.9100691175484056`*^9, 
   3.9100691705990887`*^9}, {3.9100692108621745`*^9, 
   3.9100692748179507`*^9}, {3.910069467962201*^9, 3.9100694921496844`*^9}, {
   3.910070103417838*^9, 3.910070153154107*^9}, {3.91204910930317*^9, 
   3.9120491607366424`*^9}, {3.912049308996453*^9, 3.912049394221279*^9}, {
   3.9120494866028204`*^9, 3.912049522585616*^9}, {3.912049605607108*^9, 
   3.9120496060756383`*^9}, 3.9120497704033594`*^9, 3.9120498261491585`*^9, {
   3.912050109870858*^9, 3.9120501131220894`*^9}, 3.912050178179346*^9, 
   3.912050276327167*^9, {3.9120503202206345`*^9, 3.912050323662555*^9}, {
   3.9120505071894045`*^9, 3.912050521281196*^9}, {3.9120506165482817`*^9, 
   3.912050622895625*^9}, {3.9120507887555637`*^9, 3.9120507938337393`*^9}, {
   3.912050962697831*^9, 3.912050965017727*^9}, {3.91205118103992*^9, 
   3.912051181673662*^9}, 3.9120513494975123`*^9, {3.912051396389619*^9, 
   3.912051414599933*^9}, {3.912051487325627*^9, 3.9120515167792163`*^9}, 
   3.9120545645149994`*^9, {3.912054789814084*^9, 3.9120548043814783`*^9}, {
   3.912055256910631*^9, 3.9120552730511065`*^9}, 3.9120588250024614`*^9, 
   3.9120598854069247`*^9, {3.914666748801057*^9, 3.914666749696534*^9}, 
   3.9608829199807057`*^9, {3.9610586608316956`*^9, 3.961058725026365*^9}, {
   3.9610587700731573`*^9, 3.961058782416428*^9}, {3.9610588331749907`*^9, 
   3.961058969489356*^9}, {3.96105902551112*^9, 3.9610590277321362`*^9}, {
   3.9610590625103436`*^9, 3.961059063036969*^9}, {3.9610591111253667`*^9, 
   3.9610591138811817`*^9}, {3.9610592007054634`*^9, 
   3.9610592063316092`*^9}, {3.9610592785413165`*^9, 
   3.9610592963490505`*^9}, {3.9610594114145617`*^9, 
   3.9610595614449873`*^9}, {3.9610596052076087`*^9, 
   3.9610596053562174`*^9}, {3.9610596534634285`*^9, 
   3.9610596548808784`*^9}, {3.9610597408615446`*^9, 
   3.9610597487657447`*^9}, {3.9610597835224533`*^9, 
   3.9610598020816126`*^9}, {3.9610614299596047`*^9, 
   3.9610614910180244`*^9}, {3.9610615753448887`*^9, 
   3.9610615801802187`*^9}, {3.9610616736362286`*^9, 3.96106167639374*^9}, {
   3.961061711914702*^9, 3.9610617360075207`*^9}, {3.9610619061437397`*^9, 
   3.9610619362347927`*^9}, {3.961062070356001*^9, 3.9610620735042753`*^9}, {
   3.961085798178913*^9, 3.961085811472243*^9}, 3.9610858467059255`*^9, {
   3.9610859311934776`*^9, 3.961085936946559*^9}, {3.9610860155426874`*^9, 
   3.961086021330331*^9}, {3.961086062419408*^9, 3.961086113802706*^9}, {
   3.9610861513649197`*^9, 3.961086176499754*^9}, {3.961086222571582*^9, 
   3.961086225563649*^9}, {3.961086260513632*^9, 3.961086291957246*^9}, {
   3.9610863428461103`*^9, 3.961086379176985*^9}, {3.9610864214149103`*^9, 
   3.961086423419789*^9}, {3.9610864594149504`*^9, 3.9610864666876507`*^9}, {
   3.9610865128621154`*^9, 3.9610866107763805`*^9}, {3.9610866626113462`*^9, 
   3.96108667786301*^9}, {3.9610867997398*^9, 3.9610868031621504`*^9}, 
   3.9611198781547413`*^9},
 FontSize->16,
 CellLabel->"In[46]:=",ExpressionUUID->"a9f04c3a-14d2-4311-a021-e2a01f101a9c"],

Cell[BoxData[{
 RowBox[{"g\[Lambda]O", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Lambda]f", "[", "t", "]"}], "/", "\[Kappa]"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "TXo"}], "}"}], ",", " ", 
    RowBox[{"AxesLabel", "->", 
     RowBox[{"{", 
      RowBox[{
      "t", ",", 
       "\"\<\[Lambda](t),\!\(\*OverscriptBox[\(\[Lambda]\), \
\(~\)]\)(t),\!\(\*OverscriptBox[\(\[Tau]\), \(~\)]\)\>\""}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Black", ",", 
       RowBox[{"Opacity", "[", "0.75", "]"}]}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"val\[Lambda]f", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{
        RowBox[{"\[Lambda]f", "[", "t", "]"}], "/", "\[Kappa]"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "TXo", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"gyO", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Yf", "[", "t", "]"}], ",", "Ystar"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "Tfig"}], "}"}], ",", " ", 
    RowBox[{"AxesLabel", "->", 
     RowBox[{"{", 
      RowBox[{"t", ",", "\"\<Y(t)\>\""}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"Opacity", "[", "0.75", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Dotted", ",", "Gray", ",", 
         RowBox[{"Opacity", "[", "0.5", "]"}]}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "100"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"valYf", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"Yf", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfig", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"g\[Mu]O", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Mu]f", "[", "t", "]"}], ",", "\[Mu]star"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "Tfig"}], "}"}], ",", " ", 
    RowBox[{"AxesLabel", "->", 
     RowBox[{"{", 
      RowBox[{"t", ",", "\"\<\[Mu](t)\>\""}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"Opacity", "[", "0.75", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Dotted", ",", "Gray", ",", 
         RowBox[{"Opacity", "[", "0.5", "]"}]}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "3000"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"val\[Mu]f", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"\[Mu]f", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfig", ",", "0.5"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"gxO", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"x", "[", "t", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "TXo"}], "}"}], ",", " ", 
    RowBox[{"AxesLabel", "->", 
     RowBox[{"{", 
      RowBox[{"t", ",", "\"\<x(t)\>\""}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Black", ",", 
       RowBox[{"Opacity", "[", "0.75", "]"}]}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"valxf", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"x", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "TXo", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"geO", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"e", "[", "t", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "Tfig"}], "}"}], ",", " ", 
    RowBox[{"AxesLabel", "->", 
     RowBox[{"{", 
      RowBox[{"t", ",", "\"\<e(t)\>\""}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Black", ",", 
       RowBox[{"Opacity", "[", "0.75", "]"}]}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "8000"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"valef", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"e", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfig", ",", "0.5"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"gpO", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"\[Gamma]", " ", 
     SuperscriptBox[
      RowBox[{"e", "[", "t", "]"}], 
      RowBox[{
       RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "Tfig"}], "}"}], ",", " ", 
    RowBox[{"AxesLabel", "->", 
     RowBox[{"{", 
      RowBox[{"t", ",", "\"\<p(t)\>\""}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Black", ",", 
       RowBox[{"Opacity", "[", "0.75", "]"}]}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"valpf", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"\[Gamma]", " ", 
        SuperscriptBox[
         RowBox[{"e", "[", "t", "]"}], 
         RowBox[{
          RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfig", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.912050856280979*^9, 3.9120508821599092`*^9}, {
   3.9120509708666844`*^9, 3.9120510092011423`*^9}, 3.912051044417836*^9, {
   3.912051076051076*^9, 3.9120511075453076`*^9}, {3.912051137786064*^9, 
   3.9120511583032265`*^9}, {3.914666862027825*^9, 3.914666879811141*^9}, {
   3.9146669143519354`*^9, 3.9146669151298037`*^9}, {3.914907637495185*^9, 
   3.9149076382440367`*^9}, {3.9430084090727453`*^9, 
   3.9430084197232723`*^9}, {3.943072022349024*^9, 3.943072045916794*^9}, {
   3.943088826848971*^9, 3.9430888471611967`*^9}, {3.9430888818952*^9, 
   3.943088883489609*^9}, {3.943089328038579*^9, 3.943089331132186*^9}, {
   3.943105962606763*^9, 3.943106090876915*^9}, {3.943115915230942*^9, 
   3.943116004876182*^9}, {3.943328294912147*^9, 3.943328307501409*^9}, {
   3.9608829199965377`*^9, 3.9608829199965377`*^9}, {3.961080304873208*^9, 
   3.9610803072827406`*^9}, 3.9611199060547266`*^9},
 CellLabel->"In[47]:=",ExpressionUUID->"a9a25957-c374-4d43-99df-20efc1a74631"],

Cell[TextData[StyleBox["phase diagram", "Subsubsection"]], "Text",
 CellChangeTimes->{{3.895301822817878*^9, 
  3.8953018263453283`*^9}},ExpressionUUID->"feaf748e-d53d-48ac-a428-\
29e615e4a0b9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Plot0", "=", 
    RowBox[{"ParametricPlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[Mu]f", "[", "t", "]"}], ",", 
        RowBox[{"Yf", "[", "t", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", 
        RowBox[{"TXo", "+", "36"}]}], "}"}], ",", 
      RowBox[{"AxesLabel", "->", 
       RowBox[{"{", 
        RowBox[{"\"\<\[Mu](t)\>\"", ",", "\"\<Y(t)\>\""}], "}"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Black", ",", "Thick"}], "}"}]}], ",", 
      RowBox[{"GridLines", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\[Mu]star", ",", "Black"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\[Mu]f", "[", "TXo", "]"}], ",", "Red"}], "}"}]}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Ystar", ",", "Black"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Yf", "[", "TXo", "]"}], ",", "Red"}], "}"}]}], "}"}]}], 
        "}"}]}], ",", 
      RowBox[{"PlotLabel", "->", "\"\<phase diagram\>\""}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Mu]dotR2", "[", 
    RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}], " ", "\[Mu]"}], " ", "-", 
    " ", 
    RowBox[{"\[Beta]", " ", "c1", " ", 
     SuperscriptBox["y", 
      RowBox[{
       RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"\[Mu]", "-", 
        RowBox[{"c1", " ", 
         SuperscriptBox["y", 
          RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], "-", " ", 
    RowBox[{"\[Gamma]", " ", 
     SuperscriptBox["\[Phi]", 
      RowBox[{"1", "-", 
       RowBox[{"1", "/", "\[Epsilon]"}]}]], "  ", 
     SuperscriptBox["y", 
      RowBox[{
       RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}]}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"YdotR12", "[", 
    RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", " ", 
   RowBox[{
    RowBox[{
     FractionBox["1", "c2"], " ", 
     RowBox[{"(", 
      RowBox[{"\[Mu]", "-", " ", 
       RowBox[{"c1", " ", 
        SuperscriptBox["y", 
         RowBox[{"-", "\[Beta]"}]]}]}], ")"}]}], "-", 
    RowBox[{"\[Delta]", " ", "y"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot1", "=", 
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Mu]dotR2", "[", 
         RowBox[{"\[Mu]", ",", "y"}], "]"}], "\[Equal]", "0"}], ",", 
       RowBox[{
        RowBox[{"YdotR12", "[", 
         RowBox[{"\[Mu]", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Mu]", ",", 
       RowBox[{"\[Mu]star", "-", "2000"}], ",", 
       RowBox[{"\[Mu]star", "+", "2000"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"Ystar", "-", "2000"}], ",", 
       RowBox[{"Ystar", "+", "2000"}]}], "}"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*OverscriptBox[\(\[Mu]\), \(.\)]\)[t]=0\>\"", ",", 
        "\"\<\!\(\*OverscriptBox[\(Y\), \(.\)]\)[t]=0\>\""}], "}"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<\[Mu]\>\"", ",", "\"\<Y\>\""}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{"Plot0", ",", "Plot1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.895301883530736*^9, 3.8953018844686413`*^9}, {
  3.895301930417076*^9, 3.895301955856031*^9}, {3.895302210760112*^9, 
  3.895302259820147*^9}, {3.8953023143246813`*^9, 3.895302417855014*^9}, {
  3.895302485307584*^9, 3.895302548751857*^9}, {3.895302589046934*^9, 
  3.8953026271291656`*^9}, {3.8979921434405203`*^9, 3.897992179630136*^9}, {
  3.8979922356517887`*^9, 3.8979922366836767`*^9}, {3.898677986330118*^9, 
  3.89867801115169*^9}, {3.898756991016081*^9, 3.8987570240665007`*^9}, {
  3.898768504896227*^9, 3.89876850544016*^9}, {3.898768560889382*^9, 
  3.898768592955638*^9}, {3.898768643958798*^9, 3.8987687050969152`*^9}, {
  3.8989342348016367`*^9, 3.898934254944233*^9}, {3.9120498881239004`*^9, 
  3.9120498943209376`*^9}, {3.9610804534089003`*^9, 3.961080490676335*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"278d9f7c-d3fd-4d7c-86ae-dcac6f0678ed"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["3. Large constant carbon tax, temporary FIP", \
"Section"]], "Chapter",
 CellChangeTimes->{{3.826697519672256*^9, 3.826697580027843*^9}, {
   3.826697652352769*^9, 3.8266977056371593`*^9}, {3.826697743247591*^9, 
   3.826697749730509*^9}, {3.82671702579667*^9, 3.826717026208395*^9}, 
   3.826717107644614*^9, {3.8267827733236313`*^9, 3.826782786175125*^9}, {
   3.8325797823387012`*^9, 3.83257979800218*^9}, {3.832579858645071*^9, 
   3.832579870425434*^9}, {3.846169221222629*^9, 3.8461692408364487`*^9}, {
   3.8477874993826647`*^9, 3.847787509270653*^9}, {3.849864588750937*^9, 
   3.849864612172791*^9}, {3.8538459689863873`*^9, 3.853845971948756*^9}, {
   3.88496605708986*^9, 3.8849660576773148`*^9}, {3.9608822316387835`*^9, 
   3.960882232573303*^9}, {3.961062164621217*^9, 3.961062214545709*^9}, {
   3.96108705132242*^9, 
   3.9610870584902306`*^9}},ExpressionUUID->"a8bd9d8e-6e5a-47e1-a1b9-\
f83df0ef41bd"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Clear", "[", 
     RowBox[{
     "horizonguessL", ",", "stepL", ",", "horizonLboundL", ",", 
      "horizonUboundL", ",", "\[Zeta]1LboundL\[Tau]", ",", 
      "\[Zeta]1HboundL\[Tau]", ",", "nL", ",", "nbiterL", ",", "carbonpriceL",
       ",", "\[Tau]tilde", ",", "horizonguess", ",", "horizonLbound", ",", 
      "horizonUbound", ",", "\[Zeta]1Lbound", ",", "\[Zeta]1Hbound", ",", 
      "step", ",", "n", ",", "nbiter", ",", "resol0", ",", "\[Mu]dotSB1a", 
      ",", "\[Mu]dotSB1b", ",", "\[Mu]dotSB2", ",", "YdotSB12", ",", "deY", 
      ",", "de\[Zeta]1", ",", "de\[Mu]", ",", "sol", ",", "t0", ",", "ttilde",
       ",", "tmax", ",", "T0", ",", "Ttilde", ",", "Yb", ",", "\[Mu]b", ",", 
      "\[Zeta]1b", ",", "Yf", ",", "\[Mu]f", ",", "\[Zeta]1f", ",", 
      "\[Sigma]", ",", "x", ",", "X", ",", "e", ",", "resol1", ",", "Tendoks",
       ",", "resol2", ",", "\[Mu]dotR1", ",", "\[Mu]dotR2", ",", "YdotR12", 
      ",", "flagTend", ",", "Y", ",", "\[Mu]", ",", "\[Zeta]1", ",", "TX", 
      ",", "Tend", ",", "\[Zeta]1grid", ",", "\[Zeta]1low", ",", 
      "\[Zeta]1high", ",", "\[Zeta]10star", ",", "iterRes", ",", "Xbars", ",",
       "\[Mu]fs", ",", "Yfs", ",", "\[Zeta]1fs", ",", "\[Sigma]s", ",", "xs", 
      ",", "es", ",", "T0s", " ", ",", "Ttildes", " ", ",", "Tends", ",", 
      "Xbars", ",", "xs", ",", "Ttildes", ",", " ", "\[Sigma]LbDs", ",", 
      "\[Sigma]Cvs", ",", "Tfigs", ",", "g\[Lambda]s", ",", "val\[Lambda]s", 
      ",", "gys", ",", "valYs", ",", "g\[Mu]s", ",", "val\[Mu]s", ",", 
      "g\[Sigma]s", ",", "val\[Sigma]Cvs", ",", "val\[Sigma]LbDs", ",", 
      "\[IndentingNewLine]", "gxs", ",", "valxs", ",", "ges", ",", "vales", 
      ",", "gps", ",", "valps", ",", "subs", ",", "taxs", ",", "glss", ",", 
      "budgs", ",", "evals", ",", "Invs", ",", "Ws", ",", "Wse", ",", "ccs"}],
      "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "parameters", " ", "for", " ", "the", " ", "search", " ", "of", " ", 
     "the", " ", "solution", " ", "for", " ", "the", " ", "case", " ", "of", 
     " ", "a", " ", "large", " ", "carbon", " ", "tax"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"horizonguessL", "=", "84"}], ";"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"stepL", "=", "0.01"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"horizonLboundL", "=", "40"}], ";"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"horizonUboundL", "=", "120"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Zeta]1LboundL\[Tau]", "=", "18"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Zeta]1HboundL\[Tau]", "=", "19"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nL", "=", "10"}], ";"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nbiterL", "=", "5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"**", "**", "**"}], "******)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", "choices", " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"carbonpriceL", "=", "55"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Tau]tilde", "=", 
     RowBox[{"carbonpriceL", "*", "\[Kappa]"}]}], ";"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"horizonguess", "=", "horizonguessL"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"horizonLbound", "=", "horizonLboundL"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"horizonUbound", "=", "horizonUboundL"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Zeta]1Lbound", "=", "\[Zeta]1LboundL\[Tau]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Zeta]1Hbound", "=", "\[Zeta]1HboundL\[Tau]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"step", "=", "stepL"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"n", "=", "nL"}], ";"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nbiter", " ", "=", "nbiterL"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"**", "**", "**"}], "******)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"\"\<Condition for overaccumulation: \[Tau]tilde < \>\"", ",", 
      RowBox[{
       RowBox[{"\[Gamma]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Phi]", " ", "Ystar"}], ")"}], 
         RowBox[{
          RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}], "-", "cx"}], ",", 
      "\"\< here the constant tax is \>\"", ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Tau]tilde", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Gamma]", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Phi]", " ", "Ystar"}], ")"}], 
              RowBox[{
               RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}], "-", "cx"}], 
           ")"}]}], "-", "1"}], ")"}], "*", "100"}], ",", 
      "\"\<% higher than the threshold\>\""}], "]"}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.826697519672256*^9, 3.826697580027843*^9}, {
   3.826697652352769*^9, 3.8266977554561663`*^9}, {3.8266978504549828`*^9, 
   3.8266980625810966`*^9}, {3.826698118584816*^9, 3.82669813683633*^9}, {
   3.82671708533427*^9, 3.82671711297655*^9}, {3.826717195616568*^9, 
   3.8267172879058332`*^9}, {3.8267173280925407`*^9, 3.826717333641568*^9}, {
   3.826717522821595*^9, 3.826717570299461*^9}, {3.826717680880262*^9, 
   3.826717744163055*^9}, {3.8267701655635223`*^9, 3.8267701859289627`*^9}, 
   3.8267827128347197`*^9, {3.8267828066452017`*^9, 3.82678282296761*^9}, {
   3.826783014197393*^9, 3.8267830193821793`*^9}, {3.826783053053761*^9, 
   3.8267831904013863`*^9}, {3.826783283921215*^9, 3.826783353695147*^9}, {
   3.826783398939056*^9, 3.826783468595071*^9}, {3.8267839748795967`*^9, 
   3.826784025944957*^9}, {3.826784076268982*^9, 3.826784099613714*^9}, {
   3.826802617136519*^9, 3.8268026181797743`*^9}, {3.826802651897314*^9, 
   3.82680267122538*^9}, {3.826802722431972*^9, 3.826802767546453*^9}, {
   3.826802800603544*^9, 3.826802830739423*^9}, {3.826802862078915*^9, 
   3.8268028915248327`*^9}, {3.8268029217129583`*^9, 3.826802922935287*^9}, {
   3.8325799020902243`*^9, 3.83257991082253*^9}, {3.83258017566625*^9, 
   3.832580177208193*^9}, {3.832580226339326*^9, 3.832580227036541*^9}, {
   3.832580278582456*^9, 3.8325804303569593`*^9}, {3.832580461030594*^9, 
   3.8325804766469593`*^9}, 3.832580591372081*^9, 3.8325816333865843`*^9, {
   3.832581693506543*^9, 3.83258169403688*^9}, {3.832581729792838*^9, 
   3.832581731973393*^9}, 3.8327608773441143`*^9, {3.832760912232373*^9, 
   3.832760957930429*^9}, {3.8327616436011877`*^9, 3.832761674425411*^9}, {
   3.83281481827204*^9, 3.832814824036419*^9}, {3.832814911489626*^9, 
   3.832814912218461*^9}, {3.832815028115548*^9, 3.8328150895946007`*^9}, 
   3.8328152122241592`*^9, 3.83281525241672*^9, {3.832815299537415*^9, 
   3.832815300150611*^9}, {3.8328219508123713`*^9, 3.8328219516773767`*^9}, {
   3.8328220020371017`*^9, 3.832822006343603*^9}, {3.832822042412553*^9, 
   3.832822043304326*^9}, {3.83282212518801*^9, 3.832822126103573*^9}, {
   3.832822167920742*^9, 3.832822179657393*^9}, {3.832822218391253*^9, 
   3.832822219290711*^9}, {3.832822250934577*^9, 3.832822253951581*^9}, 
   3.832822322940024*^9, {3.832822374068527*^9, 3.832822374897048*^9}, {
   3.8328224264429293`*^9, 3.8328224272685833`*^9}, {3.832822459102688*^9, 
   3.832822460137269*^9}, 3.832822508242244*^9, 3.8337133494149017`*^9, {
   3.8337133846093063`*^9, 3.833713386142579*^9}, {3.846168616840665*^9, 
   3.846168896852541*^9}, {3.846168932383956*^9, 3.8461690023694143`*^9}, {
   3.846169089428948*^9, 3.846169180556508*^9}, {3.8461692683686113`*^9, 
   3.846169350350443*^9}, {3.846169380378189*^9, 3.846169450908692*^9}, {
   3.8465644626160965`*^9, 3.8465645791262984`*^9}, {3.8465646186629257`*^9, 
   3.846564633874517*^9}, {3.846564664949559*^9, 3.8465647643150935`*^9}, {
   3.8465648836830063`*^9, 3.846564884603797*^9}, {3.846565181204013*^9, 
   3.8465652339227037`*^9}, {3.8465653002792697`*^9, 3.846565348791662*^9}, {
   3.8465653941292987`*^9, 3.846565534488723*^9}, {3.8465657634089823`*^9, 
   3.846565763831935*^9}, {3.846565817722123*^9, 3.8465658181477704`*^9}, {
   3.846565869733901*^9, 3.8465658796397505`*^9}, {3.846565922079465*^9, 
   3.846565975746462*^9}, {3.8465660412443304`*^9, 3.846566041672748*^9}, {
   3.8465660832935743`*^9, 3.846566083755465*^9}, {3.846566125150813*^9, 
   3.846566125620896*^9}, {3.8465661803508615`*^9, 3.846566181736549*^9}, {
   3.8465662246347404`*^9, 3.8465662250377464`*^9}, {3.8465662715772862`*^9, 
   3.8465662719762306`*^9}, {3.846566316131551*^9, 3.846566316542246*^9}, {
   3.846566369764449*^9, 3.846566371018426*^9}, {3.8465664146601253`*^9, 
   3.846566450868167*^9}, {3.8465664815575085`*^9, 3.846566482546114*^9}, {
   3.846566523558004*^9, 3.846566524219438*^9}, {3.846566564048211*^9, 
   3.8465665645473433`*^9}, {3.846566597287648*^9, 3.846566597731559*^9}, {
   3.846566654310875*^9, 3.8465666547324963`*^9}, {3.8465666960379333`*^9, 
   3.8465666972313366`*^9}, {3.8465667310701065`*^9, 3.846566731508182*^9}, 
   3.846566763357732*^9, {3.8465668273097878`*^9, 3.8465668564927425`*^9}, {
   3.846572142198427*^9, 3.8465721434379787`*^9}, {3.8465721954951954`*^9, 
   3.8465721959316025`*^9}, {3.8465722511116605`*^9, 3.846572251397266*^9}, {
   3.846572297723818*^9, 3.84657229810223*^9}, {3.846572344819878*^9, 
   3.8465723489396024`*^9}, {3.846572402676483*^9, 3.846572403596615*^9}, {
   3.846816887816596*^9, 3.846816907888953*^9}, {3.8468169798589993`*^9, 
   3.846816980656866*^9}, 3.8468170652502584`*^9, {3.8468171278631983`*^9, 
   3.8468171297001514`*^9}, {3.846817162308836*^9, 3.846817162677336*^9}, {
   3.846817199814546*^9, 3.846817205683964*^9}, {3.846817250389989*^9, 
   3.8468172547467213`*^9}, {3.846817317347084*^9, 3.8468173215464487`*^9}, {
   3.8468173560918417`*^9, 3.846817356498454*^9}, {3.84681741982694*^9, 
   3.8468174222333508`*^9}, {3.8468174588604684`*^9, 
   3.8468174654173975`*^9}, {3.846817497173332*^9, 3.846817497572523*^9}, {
   3.846817542156522*^9, 3.846817543737306*^9}, 3.846817613948851*^9, {
   3.846817652835613*^9, 3.8468176532845783`*^9}, {3.846817784883647*^9, 
   3.8468177896046*^9}, {3.8468178294456234`*^9, 3.8468178298116064`*^9}, {
   3.846840592748277*^9, 3.846840593469572*^9}, {3.84684072787004*^9, 
   3.8468407897975545`*^9}, {3.846840885581024*^9, 3.8468410480771875`*^9}, {
   3.846841113928362*^9, 3.846841148926806*^9}, {3.8468411953338594`*^9, 
   3.8468412622909083`*^9}, {3.846845522308096*^9, 3.8468455327493944`*^9}, {
   3.846845631440799*^9, 3.846845633055486*^9}, {3.8468457220817623`*^9, 
   3.846845722511705*^9}, {3.8468457728250885`*^9, 3.8468457732191086`*^9}, {
   3.846845825580093*^9, 3.846845830737089*^9}, {3.846845865993413*^9, 
   3.8468458663714824`*^9}, {3.846845901089572*^9, 3.846845928163545*^9}, 
   3.8468460182097683`*^9, {3.84684605586761*^9, 3.846846056274093*^9}, {
   3.8468460896448784`*^9, 3.8468460900870004`*^9}, {3.8468461218678594`*^9, 
   3.846846122263889*^9}, {3.8468461651820526`*^9, 3.8468461962369614`*^9}, {
   3.8468462277838097`*^9, 3.8468462281858234`*^9}, {3.846846277123144*^9, 
   3.846846277559677*^9}, {3.8468463084458933`*^9, 3.84684630888103*^9}, {
   3.84684634195434*^9, 3.846846342525428*^9}, {3.846846372621909*^9, 
   3.8468463731648135`*^9}, {3.8468464147153444`*^9, 3.846846417137335*^9}, {
   3.8468464492196875`*^9, 3.8468465078554893`*^9}, 3.846846545620405*^9, 
   3.8468465831183376`*^9, {3.847168350628271*^9, 3.847168356873187*^9}, {
   3.847168421581848*^9, 3.84716842325585*^9}, {3.8471684666598234`*^9, 
   3.8471684965488424`*^9}, {3.847168532728888*^9, 3.847168534785991*^9}, {
   3.8471685690342646`*^9, 3.847168569464798*^9}, 3.8471687036475515`*^9, {
   3.847168754402199*^9, 3.84716875478022*^9}, {3.847168795384446*^9, 
   3.8471687967097855`*^9}, {3.8471688552194343`*^9, 3.847168862161374*^9}, 
   3.8471818830135994`*^9, {3.847181954726035*^9, 3.8471819554131203`*^9}, {
   3.8471820020222545`*^9, 3.8471820024534235`*^9}, {3.8471820561555595`*^9, 
   3.847182056837702*^9}, {3.8471822238978186`*^9, 3.847182230085563*^9}, {
   3.84718228831876*^9, 3.847182289354521*^9}, {3.8471823419303937`*^9, 
   3.8471823422775517`*^9}, {3.8471823741229897`*^9, 
   3.8471823753188696`*^9}, {3.847182441142972*^9, 3.8471824480104837`*^9}, {
   3.847182510540641*^9, 3.847182511399679*^9}, {3.847182553783943*^9, 
   3.847182554184085*^9}, {3.8471826230179844`*^9, 3.8471826299118166`*^9}, {
   3.847182676413659*^9, 3.847182676811701*^9}, {3.8471827085581083`*^9, 
   3.847182717800353*^9}, {3.847183277543023*^9, 3.8471833042939157`*^9}, {
   3.847183364775496*^9, 3.847183368420535*^9}, {3.8471857555482073`*^9, 
   3.847185759849716*^9}, {3.8471857988380156`*^9, 3.847185799498404*^9}, {
   3.8471862464220467`*^9, 3.847186247308177*^9}, {3.8471862990537233`*^9, 
   3.8471863005417523`*^9}, {3.847186349199266*^9, 3.8471863537260284`*^9}, {
   3.8471863997277765`*^9, 3.8471864028614235`*^9}, {3.847187199011094*^9, 
   3.847187208704338*^9}, {3.847187358284011*^9, 3.847187360383865*^9}, {
   3.8471878345448847`*^9, 3.8471878374724317`*^9}, {3.8471878934430323`*^9, 
   3.847187901599221*^9}, {3.847187988945199*^9, 3.8471879894877634`*^9}, {
   3.8471880239050446`*^9, 3.847188024367765*^9}, {3.847188066721484*^9, 
   3.8471880671798053`*^9}, {3.847787549012091*^9, 3.847787583563673*^9}, {
   3.8477882007878876`*^9, 3.8477882012808805`*^9}, {3.8477882440789742`*^9, 
   3.8477882444779377`*^9}, {3.8477883297240467`*^9, 3.847788330079031*^9}, {
   3.8477883669558277`*^9, 3.847788369282047*^9}, {3.8477884125800653`*^9, 
   3.8477884129741087`*^9}, 3.8477884774711094`*^9, {3.847788528223155*^9, 
   3.8477885320155935`*^9}, {3.847788576734928*^9, 3.847788577246089*^9}, 
   3.8477886259991083`*^9, {3.847788670326703*^9, 3.8477886728459463`*^9}, {
   3.8477887164351254`*^9, 3.847788716818091*^9}, {3.847788759446004*^9, 
   3.847788760119931*^9}, 3.847789188269428*^9, {3.847789228093193*^9, 
   3.847789228572428*^9}, 3.847789370379602*^9, {3.8477894099547787`*^9, 
   3.847789410397631*^9}, {3.8477974737620935`*^9, 3.8477974775854053`*^9}, {
   3.850108910072337*^9, 3.850108948123698*^9}, {3.850109043366857*^9, 
   3.8501090516873903`*^9}, {3.850112023689413*^9, 3.8501120287815742`*^9}, {
   3.850132019438601*^9, 3.8501320529108953`*^9}, {3.850132898745719*^9, 
   3.8501329002713423`*^9}, {3.85013327705049*^9, 3.8501332845051813`*^9}, {
   3.85013344648884*^9, 3.8501334479956923`*^9}, {3.8501335547234163`*^9, 
   3.8501335609379253`*^9}, {3.850133678097048*^9, 3.850133681727685*^9}, {
   3.850133797088369*^9, 3.850133804340515*^9}, {3.850133868662513*^9, 
   3.850133869369855*^9}, {3.850134015073655*^9, 3.850134020185841*^9}, {
   3.850134063508884*^9, 3.850134064320332*^9}, {3.8501341803719177`*^9, 
   3.850134186456355*^9}, {3.8501342928976793`*^9, 3.850134297284667*^9}, {
   3.850134333489883*^9, 3.850134334195591*^9}, {3.850134449052072*^9, 
   3.850134453710538*^9}, {3.850134572273571*^9, 3.850134578185609*^9}, {
   3.8501347027770433`*^9, 3.850134708259192*^9}, {3.850134758049861*^9, 
   3.850134758943542*^9}, {3.850134874206751*^9, 3.8501348784338627`*^9}, {
   3.850134919559293*^9, 3.85013492031398*^9}, {3.8501351389509077`*^9, 
   3.850135143318193*^9}, {3.850135277598674*^9, 3.850135283788269*^9}, {
   3.8501353964164143`*^9, 3.850135402111382*^9}, {3.850135514619096*^9, 
   3.850135519628008*^9}, {3.8501356371488247`*^9, 3.850135638193225*^9}, {
   3.8501357778402243`*^9, 3.850135781590114*^9}, {3.850135919195573*^9, 
   3.8501359280018253`*^9}, {3.850136018483912*^9, 3.850136019038527*^9}, {
   3.8501361312398643`*^9, 3.850136135764079*^9}, {3.8501362962662697`*^9, 
   3.8501363239470253`*^9}, {3.850136369554294*^9, 3.8501363703049383`*^9}, {
   3.850136519311105*^9, 3.850136524270137*^9}, {3.8501366377593317`*^9, 
   3.850136643826387*^9}, {3.8501368463177023`*^9, 3.850136851316496*^9}, {
   3.850136970829341*^9, 3.850136977482705*^9}, {3.850137070336268*^9, 
   3.850137070874893*^9}, {3.850137196333234*^9, 3.850137202845467*^9}, {
   3.850137426331854*^9, 3.850137430682034*^9}, {3.8501374907511*^9, 
   3.8501374914709682`*^9}, {3.850216799520298*^9, 3.850216806778221*^9}, {
   3.850217297307255*^9, 3.850217301559559*^9}, {3.8502181244588203`*^9, 
   3.850218129335309*^9}, {3.850218498106398*^9, 3.850218502968978*^9}, {
   3.8502187714107122`*^9, 3.850218775028935*^9}, {3.8502193141945047`*^9, 
   3.8502193187212763`*^9}, {3.850219590188384*^9, 3.8502195947822*^9}, {
   3.8502199552602367`*^9, 3.850219959744954*^9}, {3.850220277567178*^9, 
   3.8502202823551702`*^9}, {3.850220642450955*^9, 3.85022064676571*^9}, {
   3.850220900159471*^9, 3.850220906576069*^9}, {3.850536659797792*^9, 
   3.850536660379168*^9}, {3.850537102030778*^9, 3.8505371101329613`*^9}, {
   3.8505674263277817`*^9, 3.850567428972752*^9}, {3.850634263969119*^9, 
   3.8506342824394703`*^9}, {3.8506343879325037`*^9, 3.850634388786837*^9}, {
   3.850634496382276*^9, 3.8506344975039597`*^9}, {3.8506345931696987`*^9, 
   3.8506345940242367`*^9}, {3.850634682891449*^9, 3.850634683648151*^9}, {
   3.850634767537903*^9, 3.8506347682669973`*^9}, {3.850634821080614*^9, 
   3.850634821743589*^9}, {3.8506350388070707`*^9, 3.85063504037213*^9}, {
   3.850635702805175*^9, 3.850635703586998*^9}, {3.850635779781735*^9, 
   3.850635780477406*^9}, {3.850635837554389*^9, 3.850635838313195*^9}, {
   3.850635934056271*^9, 3.850635941338726*^9}, {3.850636130242976*^9, 
   3.8506361308110533`*^9}, {3.850636178998404*^9, 3.850636180063869*^9}, {
   3.850636362778384*^9, 3.850636367691258*^9}, {3.850636626875825*^9, 
   3.850636639119062*^9}, {3.850636698447462*^9, 3.8506366990702353`*^9}, {
   3.850714103925886*^9, 3.850714112649128*^9}, {3.851315292482047*^9, 
   3.851315296859281*^9}, {3.851752658705945*^9, 3.8517526648137493`*^9}, {
   3.8538460813232718`*^9, 3.8538460822358837`*^9}, {3.8538462667892237`*^9, 
   3.853846269210984*^9}, {3.8538464344233522`*^9, 3.853846438940892*^9}, {
   3.853846557846159*^9, 3.853846561606484*^9}, {3.853846700362764*^9, 
   3.853846704660721*^9}, {3.8538468382557783`*^9, 3.853846844592347*^9}, {
   3.853846877963099*^9, 3.853846881886462*^9}, {3.853846928532246*^9, 
   3.853846929987616*^9}, {3.853846974583688*^9, 3.853846975141954*^9}, {
   3.853847014501461*^9, 3.8538470159414377`*^9}, {3.862319489935759*^9, 
   3.862319546410159*^9}, {3.862321035865871*^9, 3.862321090758803*^9}, {
   3.862321148149129*^9, 3.862321148987157*^9}, {3.862383745422804*^9, 
   3.862383768013803*^9}, {3.862384036245308*^9, 3.8623840367643843`*^9}, {
   3.862384069316948*^9, 3.862384069878529*^9}, {3.862384110562039*^9, 
   3.862384111155436*^9}, {3.86245295221445*^9, 3.862452953215667*^9}, {
   3.862452988165484*^9, 3.862452989823888*^9}, {3.86245304325496*^9, 
   3.862453044273363*^9}, {3.862453212653083*^9, 3.8624532129800377`*^9}, {
   3.864787057788219*^9, 3.864787064356545*^9}, {3.864787107763915*^9, 
   3.8647871100390244`*^9}, {3.864787151992322*^9, 3.864787154970213*^9}, {
   3.864787196997658*^9, 3.864787201103992*^9}, {3.864787313231802*^9, 
   3.864787314486171*^9}, {3.864787350659273*^9, 3.864787351607592*^9}, {
   3.864787415648896*^9, 3.864787416258322*^9}, {3.8647875229661093`*^9, 
   3.8647875498846416`*^9}, {3.864787586660181*^9, 3.864787587565007*^9}, {
   3.8647876188879232`*^9, 3.8647876199609003`*^9}, {3.8776826629932485`*^9, 
   3.877682665120225*^9}, {3.877682968623313*^9, 3.8776829698235426`*^9}, {
   3.8776830582536864`*^9, 3.877683060447526*^9}, {3.8776830909573636`*^9, 
   3.8776830913125043`*^9}, {3.8776831723032193`*^9, 
   3.8776831727204204`*^9}, {3.8776832233411837`*^9, 
   3.8776832238523726`*^9}, {3.877683256909442*^9, 3.877683258012065*^9}, {
   3.8776832883533754`*^9, 3.877683340495102*^9}, {3.877683393585122*^9, 
   3.877683421696204*^9}, {3.877683457490323*^9, 3.8776834578376665`*^9}, {
   3.8776835112640066`*^9, 3.877683511699155*^9}, {3.8796895014692793`*^9, 
   3.8796895359315434`*^9}, {3.879738760293494*^9, 3.8797387608793364`*^9}, {
   3.87973880176987*^9, 3.879738802332539*^9}, {3.879738833691031*^9, 
   3.879738880447263*^9}, {3.879739030835904*^9, 3.879739031387279*^9}, {
   3.88235631831077*^9, 3.8823563206406803`*^9}, {3.88235635638701*^9, 
   3.882356388055159*^9}, {3.8823564235325108`*^9, 3.882356453769267*^9}, {
   3.8823565079810553`*^9, 3.882356508764874*^9}, {3.8823565389212713`*^9, 
   3.882356539510522*^9}, {3.8823565829589043`*^9, 3.882356610348517*^9}, {
   3.882356657308189*^9, 3.882356658117465*^9}, {3.882607106891165*^9, 
   3.882607108348297*^9}, {3.8826071765004473`*^9, 3.882607177491531*^9}, {
   3.882932607843011*^9, 3.882932609924777*^9}, {3.882932797781391*^9, 
   3.8829328059094563`*^9}, {3.882932857896215*^9, 3.882932860720397*^9}, {
   3.882933110617255*^9, 3.882933114237445*^9}, {3.882933171176279*^9, 
   3.8829331715605927`*^9}, {3.882933276304126*^9, 3.882933284393779*^9}, {
   3.882933360317919*^9, 3.882933362244858*^9}, {3.882933436065494*^9, 
   3.882933436777905*^9}, 3.882933701924947*^9, {3.8829381462991753`*^9, 
   3.882938146812044*^9}, {3.882938216167679*^9, 3.882938216392208*^9}, 
   3.882939953980345*^9, 3.8832192816408796`*^9, 3.883219354860386*^9, 
   3.883219394643702*^9, {3.8832218726405287`*^9, 3.883221876033681*^9}, 
   3.8832220029333754`*^9, {3.8832233120477166`*^9, 3.8832233641468034`*^9}, {
   3.883223487952299*^9, 3.8832234888028584`*^9}, {3.8832236923475723`*^9, 
   3.883223763085186*^9}, {3.883223802310669*^9, 3.883223805217922*^9}, {
   3.8832239079054747`*^9, 3.8832239324638367`*^9}, {3.883223970700691*^9, 
   3.8832239751960983`*^9}, {3.8832240124331627`*^9, 
   3.8832240156684203`*^9}, {3.883224086207139*^9, 3.883224095964916*^9}, {
   3.8836395068253145`*^9, 3.883639518902352*^9}, 3.883639975032599*^9, {
   3.8849236335692453`*^9, 3.884923646943448*^9}, {3.8849241829811554`*^9, 
   3.8849241842265635`*^9}, 3.8849268511857047`*^9, {3.8849269139382486`*^9, 
   3.8849269166613855`*^9}, {3.8849269977087517`*^9, 
   3.8849269996965103`*^9}, {3.8849481823878345`*^9, 3.884948187943952*^9}, {
   3.8849482801125407`*^9, 3.884948302587031*^9}, {3.8849483418863597`*^9, 
   3.884948345112952*^9}, {3.8849486450250883`*^9, 3.8849486542527604`*^9}, {
   3.884948738741912*^9, 3.8849487557477255`*^9}, {3.884948788375436*^9, 
   3.8849488042914085`*^9}, {3.884948881118991*^9, 3.884948912334647*^9}, {
   3.8849658224132123`*^9, 3.8849658292092032`*^9}, 3.884966108118477*^9, {
   3.884966230024587*^9, 3.884966238996812*^9}, {3.8849663413722935`*^9, 
   3.8849663518359337`*^9}, {3.8849663942731023`*^9, 3.884966399761177*^9}, {
   3.884966461978566*^9, 3.884966468499884*^9}, {3.8849665143235693`*^9, 
   3.8849665196648083`*^9}, {3.8849703573155603`*^9, 
   3.8849703837581453`*^9}, {3.887086105506632*^9, 3.887086115796524*^9}, {
   3.8870861535255075`*^9, 3.88708616202314*^9}, {3.8870862666413326`*^9, 
   3.8870862749617643`*^9}, {3.887086787377674*^9, 3.8870867973627405`*^9}, {
   3.8870868682964773`*^9, 3.8870868846440973`*^9}, {3.8870869815852313`*^9, 
   3.8870869955295734`*^9}, {3.8870870345764837`*^9, 3.887087104484643*^9}, {
   3.8870871366279907`*^9, 3.8870871710406847`*^9}, {3.887087201492566*^9, 
   3.887087209377134*^9}, {3.8870874028824463`*^9, 3.8870874162437134`*^9}, {
   3.8870875339795675`*^9, 3.88708754294046*^9}, {3.8870875968487687`*^9, 
   3.8870876006602845`*^9}, {3.887087643414482*^9, 3.887087650421055*^9}, {
   3.887087714775414*^9, 3.887087715929934*^9}, {3.8870877938607807`*^9, 
   3.887087807201042*^9}, {3.8870878604643803`*^9, 3.8870878712524457`*^9}, {
   3.887087974057832*^9, 3.8870879750952053`*^9}, {3.8870880966042013`*^9, 
   3.887088129760293*^9}, {3.887088211163848*^9, 3.887088217257465*^9}, {
   3.887088271839266*^9, 3.8870882735250607`*^9}, {3.8870883230136056`*^9, 
   3.887088325622018*^9}, {3.8870883942395477`*^9, 3.8870883970234327`*^9}, {
   3.88708842922966*^9, 3.8870884294081216`*^9}, {3.8870885807478547`*^9, 
   3.887088585304508*^9}, {3.887089066313942*^9, 3.8870890709915466`*^9}, {
   3.887089192025593*^9, 3.887089223552025*^9}, {3.887089272285997*^9, 
   3.8870892773329678`*^9}, {3.8870893192809157`*^9, 
   3.8870893222329454`*^9}, {3.8871283741670046`*^9, 
   3.8871283885831575`*^9}, {3.8871285041706142`*^9, 3.88712851868575*^9}, {
   3.8871286108581834`*^9, 3.887128621787644*^9}, {3.887128713094726*^9, 
   3.8871287169168606`*^9}, {3.8871288151086082`*^9, 3.887128827105643*^9}, {
   3.8871288750312147`*^9, 3.8871288849325686`*^9}, {3.8871289286061916`*^9, 
   3.887128935404413*^9}, {3.887128966434208*^9, 3.887128974296525*^9}, {
   3.887129007220478*^9, 3.8871290152151413`*^9}, {3.887129064500779*^9, 
   3.887129068260476*^9}, {3.8871291076026*^9, 3.887129117443991*^9}, {
   3.887129171886978*^9, 3.8871291821321254`*^9}, {3.887129302808529*^9, 
   3.887129304663588*^9}, {3.887129357385457*^9, 3.8871293594919043`*^9}, {
   3.88712940434044*^9, 3.8871294106530666`*^9}, 3.8871294536886873`*^9, {
   3.8871294896791506`*^9, 3.887129491284455*^9}, {3.8871295356782484`*^9, 
   3.887129544840355*^9}, {3.8871296557942677`*^9, 3.8871297000420585`*^9}, {
   3.887345924777614*^9, 3.887345931520482*^9}, {3.8873460003410625`*^9, 
   3.887346018460038*^9}, {3.887346054685678*^9, 3.8873460798411555`*^9}, 
   3.8873461758676925`*^9, {3.887346270237023*^9, 3.8873462712439823`*^9}, {
   3.887346301966379*^9, 3.887346305475691*^9}, {3.887346405206235*^9, 
   3.887346405966315*^9}, 3.8873469750021267`*^9, {3.8873470447559805`*^9, 
   3.8873470635029173`*^9}, {3.887347126230611*^9, 3.8873471375776815`*^9}, 
   3.887347192600792*^9, {3.8873472407917333`*^9, 3.887347249476199*^9}, 
   3.887347915771081*^9, {3.8873485640577025`*^9, 3.887348598375843*^9}, {
   3.887349653496688*^9, 3.8873496827463474`*^9}, {3.887349995919941*^9, 
   3.887350072178502*^9}, {3.887350103583418*^9, 3.8873501929109545`*^9}, {
   3.8873504574189463`*^9, 3.887350457590954*^9}, {3.8873505245976973`*^9, 
   3.8873505343119297`*^9}, 3.8873517309236603`*^9, {3.887354818165547*^9, 
   3.887354859909527*^9}, {3.887355055344599*^9, 3.887355217611*^9}, {
   3.8873556243621855`*^9, 3.887355639487733*^9}, {3.8873557192206497`*^9, 
   3.887355759722093*^9}, 3.887355790276352*^9, {3.887355873949196*^9, 
   3.8873558800565763`*^9}, 3.8873559251873226`*^9, {3.8873559839298286`*^9, 
   3.8873559934686055`*^9}, {3.887356041266349*^9, 3.887356043106586*^9}, {
   3.88735608037718*^9, 3.887356080544733*^9}, {3.8873561294055786`*^9, 
   3.88735622038546*^9}, {3.8873562605573635`*^9, 3.8873562628051467`*^9}, {
   3.8873563235676737`*^9, 3.887356329997182*^9}, {3.88735638901086*^9, 
   3.887356407356944*^9}, {3.8873564634243727`*^9, 3.887356509567935*^9}, {
   3.887356584237195*^9, 3.8873566397100525`*^9}, 3.887356691045214*^9, 
   3.88735672323057*^9, {3.8873567787777987`*^9, 3.887356780882655*^9}, 
   3.887356863132186*^9, 3.8873569191712203`*^9, 3.8873569556519146`*^9, {
   3.88735699797686*^9, 3.8873570083942986`*^9}, 3.887357042305559*^9, {
   3.8873571272280865`*^9, 3.887357131260467*^9}, {3.8873571925378866`*^9, 
   3.8873571946902604`*^9}, {3.887357255526131*^9, 3.887357259051607*^9}, {
   3.887357362009465*^9, 3.8873574067360497`*^9}, {3.887357437138713*^9, 
   3.8873574921923447`*^9}, {3.8873598421828375`*^9, 3.887359887088142*^9}, {
   3.8873599482811537`*^9, 3.8873599515517673`*^9}, 3.8873599816890593`*^9, {
   3.88736002435647*^9, 3.887360059397009*^9}, {3.887360117475437*^9, 
   3.88736011772528*^9}, 3.8873601527938643`*^9, {3.8873602026891155`*^9, 
   3.8873603117786245`*^9}, {3.895302931913374*^9, 3.895302948271122*^9}, {
   3.8953033754116917`*^9, 3.895303376484955*^9}, {3.895303776127254*^9, 
   3.895303788681469*^9}, {3.8953038266322412`*^9, 3.8953038275997877`*^9}, {
   3.895303918224444*^9, 3.8953039200878887`*^9}, {3.895303994894898*^9, 
   3.895303998871063*^9}, {3.895304038210909*^9, 3.895304038908256*^9}, {
   3.8953046618291883`*^9, 3.895304665275201*^9}, {3.8953047051311903`*^9, 
   3.8953047088948517`*^9}, {3.895304753976981*^9, 3.8953047586001663`*^9}, {
   3.895304830568158*^9, 3.895304832898937*^9}, {3.896322972294751*^9, 
   3.896322982309127*^9}, {3.897992342787712*^9, 3.897992348313793*^9}, {
   3.897992414262561*^9, 3.8979924155865927`*^9}, {3.897992473914811*^9, 
   3.897992477573443*^9}, {3.897992571590996*^9, 3.897992579335156*^9}, {
   3.897992620268202*^9, 3.8979926209747887`*^9}, {3.8979926675183973`*^9, 
   3.897992668663577*^9}, {3.897992715859293*^9, 3.897992718058084*^9}, {
   3.897992748626095*^9, 3.8979927876586*^9}, {3.897992831635083*^9, 
   3.897992840873467*^9}, {3.897997654358644*^9, 3.897997657732806*^9}, {
   3.897997717286515*^9, 3.897997718918252*^9}, {3.897997884705327*^9, 
   3.897997892582736*^9}, {3.898678538323419*^9, 3.898678541715506*^9}, {
   3.898678585087091*^9, 3.8986786156533327`*^9}, {3.8986786571916656`*^9, 
   3.8986786928335333`*^9}, {3.898758386240052*^9, 3.898758401708325*^9}, {
   3.8987584570445833`*^9, 3.898758458560154*^9}, {3.898758530584565*^9, 
   3.8987585353478813`*^9}, {3.898758571383028*^9, 3.898758577773994*^9}, {
   3.8987687748864183`*^9, 3.8987687813672733`*^9}, {3.8987688178330936`*^9, 
   3.898768819443247*^9}, {3.8987688569770527`*^9, 3.8987688889637737`*^9}, {
   3.8989343005465193`*^9, 3.898934360951145*^9}, {3.898934410878615*^9, 
   3.898934420668891*^9}, {3.89893445694289*^9, 3.898934465415039*^9}, {
   3.9097521048099375`*^9, 3.909752110728941*^9}, {3.9097521925559745`*^9, 
   3.9097522516895666`*^9}, {3.9097522911149254`*^9, 3.909752328441886*^9}, {
   3.909752358744046*^9, 3.9097524159150114`*^9}, {3.9097526466337733`*^9, 
   3.9097526662786694`*^9}, {3.909752702091913*^9, 3.9097527053219132`*^9}, {
   3.9097527659767*^9, 3.909752771000163*^9}, {3.909827278119812*^9, 
   3.9098273434505267`*^9}, {3.909827375757668*^9, 3.909827381363061*^9}, {
   3.9108410844419394`*^9, 3.9108411437324915`*^9}, {3.910841190848908*^9, 
   3.910841204660983*^9}, {3.91084124676425*^9, 3.910841261256109*^9}, {
   3.910841456397105*^9, 3.910841466740075*^9}, {3.910841500617404*^9, 
   3.910841514125978*^9}, {3.9120837578186703`*^9, 3.9120838083585396`*^9}, {
   3.912083910210554*^9, 3.9120839196982756`*^9}, {3.9120839786558003`*^9, 
   3.912084002366093*^9}, {3.912084050262537*^9, 3.9120841544506073`*^9}, {
   3.9120857869887333`*^9, 3.912085805486348*^9}, {3.912085897733817*^9, 
   3.9120859425514116`*^9}, {3.912086425365149*^9, 3.912086446161602*^9}, {
   3.9120867308413763`*^9, 3.912086744791419*^9}, {3.912086776715914*^9, 
   3.912086777548607*^9}, {3.914667089386838*^9, 3.9146671364127927`*^9}, {
   3.914760249922841*^9, 3.914760255369602*^9}, {3.9430083178124247`*^9, 
   3.943008318527989*^9}, {3.943008349113964*^9, 3.943008351220992*^9}, 
   3.960882920016589*^9, {3.9610621571188583`*^9, 3.9610621584387817`*^9}, {
   3.9610622434868784`*^9, 3.96106243877994*^9}, {3.9610624749359226`*^9, 
   3.9610624834293337`*^9}, {3.961062566583168*^9, 3.9610625691954823`*^9}, {
   3.961062629855095*^9, 3.9610626822552505`*^9}, {3.961062775776188*^9, 
   3.961062780303896*^9}, {3.9610628122782764`*^9, 3.9610628334613824`*^9}, {
   3.9610628725551305`*^9, 3.961062874811262*^9}, {3.9610629407706146`*^9, 
   3.9610629411209087`*^9}, 3.961062980488505*^9, {3.961063046744291*^9, 
   3.9610630707663035`*^9}, {3.9610631588096213`*^9, 
   3.9610632071031675`*^9}, {3.9610638781956744`*^9, 3.9610639330226307`*^9}, 
   3.961064141976223*^9, 3.961065942717287*^9, 3.961066006046564*^9, {
   3.9610660435484056`*^9, 3.9610660884654603`*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"6f3df416-2c23-4195-bea0-5b9577f3cafa"],

Cell[BoxData[
 StyleBox["Resolution", "Subsubsection",
  FontSize->18]], "Input",
 CellChangeTimes->{{3.826697519672256*^9, 3.826697580027843*^9}, {
   3.826697652352769*^9, 3.8266977554561663`*^9}, {3.8266978504549828`*^9, 
   3.8266980625810966`*^9}, {3.826698118584816*^9, 3.82669813683633*^9}, {
   3.82671708533427*^9, 3.82671711297655*^9}, {3.826717195616568*^9, 
   3.8267172879058332`*^9}, {3.8267173280925407`*^9, 3.826717333641568*^9}, {
   3.826717522821595*^9, 3.826717570299461*^9}, {3.826717680880262*^9, 
   3.826717744163055*^9}, {3.8267701655635223`*^9, 3.8267701859289627`*^9}, 
   3.8267827128347197`*^9, {3.8267828066452017`*^9, 3.82678282296761*^9}, {
   3.826783014197393*^9, 3.8267830193821793`*^9}, {3.826783053053761*^9, 
   3.8267831904013863`*^9}, {3.826783283921215*^9, 3.826783353695147*^9}, {
   3.826783398939056*^9, 3.826783468595071*^9}, {3.8267839748795967`*^9, 
   3.826784025944957*^9}, {3.826784076268982*^9, 3.826784099613714*^9}, {
   3.826802617136519*^9, 3.8268026181797743`*^9}, {3.826802651897314*^9, 
   3.82680267122538*^9}, {3.826802722431972*^9, 3.826802767546453*^9}, {
   3.826802800603544*^9, 3.826802830739423*^9}, {3.826802862078915*^9, 
   3.8268028915248327`*^9}, {3.8268029217129583`*^9, 3.826802922935287*^9}, {
   3.8325799020902243`*^9, 3.83257991082253*^9}, {3.83258017566625*^9, 
   3.832580177208193*^9}, {3.832580226339326*^9, 3.832580227036541*^9}, {
   3.832580278582456*^9, 3.8325804303569593`*^9}, {3.832580461030594*^9, 
   3.8325804766469593`*^9}, 3.832580591372081*^9, 3.8325816333865843`*^9, {
   3.832581693506543*^9, 3.83258169403688*^9}, {3.832581729792838*^9, 
   3.832581731973393*^9}, 3.8327608773441143`*^9, {3.832760912232373*^9, 
   3.832760957930429*^9}, {3.8327616436011877`*^9, 3.832761674425411*^9}, {
   3.83281481827204*^9, 3.832814824036419*^9}, {3.832814911489626*^9, 
   3.832814912218461*^9}, {3.832815028115548*^9, 3.8328150895946007`*^9}, 
   3.8328152122241592`*^9, 3.83281525241672*^9, {3.832815299537415*^9, 
   3.832815300150611*^9}, {3.8328219508123713`*^9, 3.8328219516773767`*^9}, {
   3.8328220020371017`*^9, 3.832822006343603*^9}, {3.832822042412553*^9, 
   3.832822043304326*^9}, {3.83282212518801*^9, 3.832822126103573*^9}, {
   3.832822167920742*^9, 3.832822179657393*^9}, {3.832822218391253*^9, 
   3.832822219290711*^9}, {3.832822250934577*^9, 3.832822253951581*^9}, 
   3.832822322940024*^9, {3.832822374068527*^9, 3.832822374897048*^9}, {
   3.8328224264429293`*^9, 3.8328224272685833`*^9}, {3.832822459102688*^9, 
   3.832822460137269*^9}, 3.832822508242244*^9, 3.8337133494149017`*^9, {
   3.8337133846093063`*^9, 3.833713386142579*^9}, {3.846168616840665*^9, 
   3.846168896852541*^9}, {3.846168932383956*^9, 3.8461690023694143`*^9}, {
   3.846169089428948*^9, 3.846169180556508*^9}, {3.8461692683686113`*^9, 
   3.846169350350443*^9}, {3.846169380378189*^9, 3.846169450908692*^9}, {
   3.8465644626160965`*^9, 3.8465645791262984`*^9}, {3.8465646186629257`*^9, 
   3.846564633874517*^9}, {3.846564664949559*^9, 3.8465647643150935`*^9}, {
   3.8465648836830063`*^9, 3.846564884603797*^9}, {3.846565181204013*^9, 
   3.8465652339227037`*^9}, {3.8465653002792697`*^9, 3.846565348791662*^9}, {
   3.8465653941292987`*^9, 3.846565534488723*^9}, {3.8465657634089823`*^9, 
   3.846565763831935*^9}, {3.846565817722123*^9, 3.8465658181477704`*^9}, {
   3.846565869733901*^9, 3.8465658796397505`*^9}, {3.846565922079465*^9, 
   3.846565975746462*^9}, {3.8465660412443304`*^9, 3.846566041672748*^9}, {
   3.8465660832935743`*^9, 3.846566083755465*^9}, {3.846566125150813*^9, 
   3.846566125620896*^9}, {3.8465661803508615`*^9, 3.846566181736549*^9}, {
   3.8465662246347404`*^9, 3.8465662250377464`*^9}, {3.8465662715772862`*^9, 
   3.8465662719762306`*^9}, {3.846566316131551*^9, 3.846566316542246*^9}, {
   3.846566369764449*^9, 3.846566371018426*^9}, {3.8465664146601253`*^9, 
   3.846566450868167*^9}, {3.8465664815575085`*^9, 3.846566482546114*^9}, {
   3.846566523558004*^9, 3.846566524219438*^9}, {3.846566564048211*^9, 
   3.8465665645473433`*^9}, {3.846566597287648*^9, 3.846566597731559*^9}, {
   3.846566654310875*^9, 3.8465666547324963`*^9}, {3.8465666960379333`*^9, 
   3.8465666972313366`*^9}, {3.8465667310701065`*^9, 3.846566731508182*^9}, 
   3.846566763357732*^9, {3.8465668273097878`*^9, 3.8465668564927425`*^9}, {
   3.846572142198427*^9, 3.8465721434379787`*^9}, {3.8465721954951954`*^9, 
   3.8465721959316025`*^9}, {3.8465722511116605`*^9, 3.846572251397266*^9}, {
   3.846572297723818*^9, 3.84657229810223*^9}, {3.846572344819878*^9, 
   3.8465723489396024`*^9}, {3.846572402676483*^9, 3.846572403596615*^9}, {
   3.846816887816596*^9, 3.846816907888953*^9}, {3.8468169798589993`*^9, 
   3.846816980656866*^9}, 3.8468170652502584`*^9, {3.8468171278631983`*^9, 
   3.8468171297001514`*^9}, {3.846817162308836*^9, 3.846817162677336*^9}, {
   3.846817199814546*^9, 3.846817205683964*^9}, {3.846817250389989*^9, 
   3.8468172547467213`*^9}, {3.846817317347084*^9, 3.8468173215464487`*^9}, {
   3.8468173560918417`*^9, 3.846817356498454*^9}, {3.84681741982694*^9, 
   3.8468174222333508`*^9}, {3.8468174588604684`*^9, 
   3.8468174654173975`*^9}, {3.846817497173332*^9, 3.846817497572523*^9}, {
   3.846817542156522*^9, 3.846817543737306*^9}, 3.846817613948851*^9, {
   3.846817652835613*^9, 3.8468176532845783`*^9}, {3.846817784883647*^9, 
   3.8468177896046*^9}, {3.8468178294456234`*^9, 3.8468178298116064`*^9}, {
   3.846840592748277*^9, 3.846840593469572*^9}, {3.84684072787004*^9, 
   3.8468407897975545`*^9}, {3.846840885581024*^9, 3.8468410480771875`*^9}, {
   3.846841113928362*^9, 3.846841148926806*^9}, {3.8468411953338594`*^9, 
   3.8468412622909083`*^9}, {3.846845522308096*^9, 3.8468455327493944`*^9}, {
   3.846845631440799*^9, 3.846845633055486*^9}, {3.8468457220817623`*^9, 
   3.846845722511705*^9}, {3.8468457728250885`*^9, 3.8468457732191086`*^9}, {
   3.846845825580093*^9, 3.846845830737089*^9}, {3.846845865993413*^9, 
   3.8468458663714824`*^9}, {3.846845901089572*^9, 3.846845928163545*^9}, 
   3.8468460182097683`*^9, {3.84684605586761*^9, 3.846846056274093*^9}, {
   3.8468460896448784`*^9, 3.8468460900870004`*^9}, {3.8468461218678594`*^9, 
   3.846846122263889*^9}, {3.8468461651820526`*^9, 3.8468461962369614`*^9}, {
   3.8468462277838097`*^9, 3.8468462281858234`*^9}, {3.846846277123144*^9, 
   3.846846277559677*^9}, {3.8468463084458933`*^9, 3.84684630888103*^9}, {
   3.84684634195434*^9, 3.846846342525428*^9}, {3.846846372621909*^9, 
   3.8468463731648135`*^9}, {3.8468464147153444`*^9, 3.846846417137335*^9}, {
   3.8468464492196875`*^9, 3.8468465078554893`*^9}, 3.846846545620405*^9, 
   3.8468465831183376`*^9, {3.847168350628271*^9, 3.847168356873187*^9}, {
   3.847168421581848*^9, 3.84716842325585*^9}, {3.8471684666598234`*^9, 
   3.8471684965488424`*^9}, {3.847168532728888*^9, 3.847168534785991*^9}, {
   3.8471685690342646`*^9, 3.847168569464798*^9}, 3.8471687036475515`*^9, {
   3.847168754402199*^9, 3.84716875478022*^9}, {3.847168795384446*^9, 
   3.8471687967097855`*^9}, {3.8471688552194343`*^9, 3.847168862161374*^9}, 
   3.8471818830135994`*^9, {3.847181954726035*^9, 3.8471819554131203`*^9}, {
   3.8471820020222545`*^9, 3.8471820024534235`*^9}, {3.8471820561555595`*^9, 
   3.847182056837702*^9}, {3.8471822238978186`*^9, 3.847182230085563*^9}, {
   3.84718228831876*^9, 3.847182289354521*^9}, {3.8471823419303937`*^9, 
   3.8471823422775517`*^9}, {3.8471823741229897`*^9, 
   3.8471823753188696`*^9}, {3.847182441142972*^9, 3.8471824480104837`*^9}, {
   3.847182510540641*^9, 3.847182511399679*^9}, {3.847182553783943*^9, 
   3.847182554184085*^9}, {3.8471826230179844`*^9, 3.8471826299118166`*^9}, {
   3.847182676413659*^9, 3.847182676811701*^9}, {3.8471827085581083`*^9, 
   3.847182717800353*^9}, {3.847183277543023*^9, 3.8471833042939157`*^9}, {
   3.847183364775496*^9, 3.847183368420535*^9}, {3.8471857555482073`*^9, 
   3.847185759849716*^9}, {3.8471857988380156`*^9, 3.847185799498404*^9}, {
   3.8471862464220467`*^9, 3.847186247308177*^9}, {3.8471862990537233`*^9, 
   3.8471863005417523`*^9}, {3.847186349199266*^9, 3.8471863537260284`*^9}, {
   3.8471863997277765`*^9, 3.8471864028614235`*^9}, {3.847187199011094*^9, 
   3.847187208704338*^9}, {3.847187358284011*^9, 3.847187360383865*^9}, {
   3.8471878345448847`*^9, 3.8471878374724317`*^9}, {3.8471878934430323`*^9, 
   3.847187901599221*^9}, {3.847187988945199*^9, 3.8471879894877634`*^9}, {
   3.8471880239050446`*^9, 3.847188024367765*^9}, {3.847188066721484*^9, 
   3.8471880671798053`*^9}, {3.847787549012091*^9, 3.847787583563673*^9}, {
   3.8477882007878876`*^9, 3.8477882012808805`*^9}, {3.8477882440789742`*^9, 
   3.8477882444779377`*^9}, {3.8477883297240467`*^9, 3.847788330079031*^9}, {
   3.8477883669558277`*^9, 3.847788369282047*^9}, {3.8477884125800653`*^9, 
   3.8477884129741087`*^9}, 3.8477884774711094`*^9, {3.847788528223155*^9, 
   3.8477885320155935`*^9}, {3.847788576734928*^9, 3.847788577246089*^9}, 
   3.8477886259991083`*^9, {3.847788670326703*^9, 3.8477886728459463`*^9}, {
   3.8477887164351254`*^9, 3.847788716818091*^9}, {3.847788759446004*^9, 
   3.847788760119931*^9}, 3.847789188269428*^9, {3.847789228093193*^9, 
   3.847789228572428*^9}, 3.847789370379602*^9, {3.8477894099547787`*^9, 
   3.847789410397631*^9}, {3.8477974737620935`*^9, 3.8477974775854053`*^9}, {
   3.850108910072337*^9, 3.850108948123698*^9}, {3.850109043366857*^9, 
   3.850109048500683*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"4b28cf3f-6f88-4a4c-a306-512aa0abbdc5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"resol0", "[", "\[Zeta]10_", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\[Mu]dotSB1a", ",", "\[Mu]dotSB1b", ",", "\[Mu]dotSB2", ",", 
        "YdotSB12", ",", "deY", ",", "de\[Zeta]1", ",", "de\[Mu]", ",", "sol",
         ",", "t0", ",", "ttilde", ",", "tmax", ",", "T0", ",", "Ttilde", ",",
         "Yb", ",", "\[Mu]b", ",", "\[Zeta]1b", ",", "Yf", ",", "\[Mu]f", ",",
         "\[Zeta]1f", ",", "\[Sigma]", ",", "x", ",", "X", ",", "e"}], "}"}], 
      ",", "\[IndentingNewLine]", "\n", 
      RowBox[{"(*", " ", 
       RowBox[{"here", " ", "inserted"}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"resol1", "[", "horizonguess_", "]"}], ":=", 
        RowBox[{"Module", "[", 
         RowBox[{
          RowBox[{"{", "Tendoks", "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"resol2", "[", "horizon_", "]"}], ":=", 
            RowBox[{"Module", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
               "\[Mu]dotR1", ",", "\[Mu]dotR2", ",", "YdotR12", ",", "deY", 
                ",", "de\[Lambda]", ",", "de\[Mu]", ",", "TX", ",", "tmax", 
                ",", "flagTend"}], "}"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{
                RowBox[{"\[Mu]dotSB1a", "[", 
                 RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}], " ", "\[Mu]"}],
                  " ", "-", 
                 RowBox[{"\[Beta]", "  ", "c1", " ", 
                  SuperscriptBox["y", 
                   RowBox[{
                    RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"\[Mu]", "-", 
                    RowBox[{"c1", " ", 
                    SuperscriptBox["y", 
                    RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], " ", 
                 "-", " ", 
                 RowBox[{"\[Phi]", " ", 
                  RowBox[{"(", 
                   RowBox[{"cx", "+", "\[Tau]tilde"}], ")"}]}]}]}], " ", ";", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"\[Mu]dotSB1b", "[", 
                 RowBox[{"\[Mu]_", ",", "y_", ",", "\[Zeta]1_"}], "]"}], "=", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}], " ", "\[Mu]"}],
                  " ", "-", 
                 RowBox[{"\[Beta]", "  ", "c1", " ", 
                  SuperscriptBox["y", 
                   RowBox[{
                    RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"\[Mu]", "-", 
                    RowBox[{"c1", " ", 
                    SuperscriptBox["y", 
                    RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], " ", 
                 "-", " ", 
                 RowBox[{"\[Phi]", " ", 
                  RowBox[{"(", 
                   RowBox[{"cx", "+", "\[Zeta]1"}], ")"}]}]}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"\[Mu]dotSB2", "[", 
                 RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}], " ", "\[Mu]"}],
                  " ", "-", 
                 RowBox[{"\[Beta]", " ", "c1", " ", 
                  SuperscriptBox["y", 
                   RowBox[{
                    RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"\[Mu]", "-", 
                    RowBox[{"c1", " ", 
                    SuperscriptBox["y", 
                    RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], "-", 
                 "  ", 
                 RowBox[{"\[Gamma]", 
                  SuperscriptBox["\[Phi]", 
                   RowBox[{"1", "-", 
                    RowBox[{"1", "/", "\[Epsilon]"}]}]], "  ", 
                  SuperscriptBox["y", 
                   RowBox[{
                    RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}]}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"YdotSB12", "[", 
                 RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", " ", 
                RowBox[{
                 RowBox[{
                  FractionBox["1", "c2"], " ", 
                  RowBox[{"(", 
                   RowBox[{"\[Mu]", "-", 
                    RowBox[{"c1", " ", 
                    SuperscriptBox["y", 
                    RowBox[{"-", "\[Beta]"}]]}]}], ")"}]}], "-", 
                 RowBox[{"\[Delta]", " ", "y"}]}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"deY", "=", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Y", "'"}], "[", "t", "]"}], "\[Equal]", 
                 RowBox[{"-", 
                  RowBox[{"YdotSB12", "[", 
                   RowBox[{
                    RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
                    RowBox[{"Y", "[", "t", "]"}]}], "]"}]}]}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"de\[Zeta]1", "=", 
                RowBox[{
                 RowBox[{
                  RowBox[{"\[Zeta]1", "'"}], "[", "t", "]"}], "\[Equal]", 
                 RowBox[{
                  RowBox[{"-", "\[Rho]"}], " ", 
                  RowBox[{"\[Zeta]1", "[", "t", "]"}]}]}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"de\[Mu]", "=", 
                RowBox[{
                 RowBox[{
                  RowBox[{"\[Mu]", "'"}], "[", "t", "]"}], "\[Equal]", 
                 RowBox[{"-", 
                  RowBox[{"Piecewise", "[", 
                   RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"{", " ", 
                    RowBox[{
                    RowBox[{"\[Mu]dotSB1a", "[", 
                    RowBox[{
                    RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
                    RowBox[{"Y", "[", "t", "]"}]}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"\[Zeta]1", "[", "t", "]"}], "\[LessEqual]", 
                    "\[Tau]tilde"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"\[Mu]dotSB1b", "[", 
                    RowBox[{
                    RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
                    RowBox[{"Y", "[", "t", "]"}], ",", 
                    RowBox[{"\[Zeta]1", "[", "t", "]"}]}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"Y", "[", "t", "]"}], "\[IndentingNewLine]", 
                    "\[LessEqual]", 
                    RowBox[{
                    FractionBox["1", "\[Phi]"], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox["\[Gamma]", 
                    RowBox[{"cx", "+", "\[Tau]tilde"}]], ")"}], 
                    "\[Epsilon]"]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"\[Mu]dotSB2", "[", 
                    RowBox[{
                    RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
                    RowBox[{"Y", "[", "t", "]"}]}], "]"}], ",", 
                    RowBox[{
                    RowBox[{
                    FractionBox["1", "\[Phi]"], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox["\[Gamma]", 
                    RowBox[{"cx", "+", "\[Tau]tilde"}]], ")"}], 
                    "\[Epsilon]"]}], " ", "<", 
                    RowBox[{"Y", "[", "t", "]"}]}]}], "}"}]}], 
                    "\[IndentingNewLine]", "}"}], "]"}]}]}]}], ";", 
               "\[IndentingNewLine]", "\[IndentingNewLine]", 
               RowBox[{"sol", "=", 
                RowBox[{"NDSolve", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"deY", ",", "de\[Mu]", ",", "de\[Zeta]1", ",", 
                    RowBox[{
                    RowBox[{"Y", "[", "0", "]"}], "\[Equal]", 
                    RowBox[{"Ystar", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", " ", 
                    SuperscriptBox["10", 
                    RowBox[{"-", "3"}]]}], ")"}]}]}], ",", 
                    RowBox[{
                    RowBox[{"\[Mu]", "[", "0", "]"}], "\[Equal]", 
                    RowBox[{"\[Mu]star", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SuperscriptBox["10", 
                    RowBox[{"-", "3"}]]}], ")"}]}]}], ",", 
                    RowBox[{
                    RowBox[{"\[Zeta]1", "[", "0", "]"}], "\[Equal]", 
                    RowBox[{"\[Zeta]10", " ", 
                    RowBox[{"Exp", "[", 
                    RowBox[{"\[Rho]", " ", "horizon"}], "]"}]}]}]}], "}"}], 
                  ",", 
                  RowBox[{"{", 
                   RowBox[{"Y", ",", "\[Mu]", ",", "\[Zeta]1"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"t", ",", "0", ",", "horizon"}], "}"}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"Method", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{
                    "\"\<EventLocator\>\"", ",", "\[IndentingNewLine]", 
                    RowBox[{"\"\<Event\>\"", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"\[Zeta]1", "[", "t", "]"}], "-", "\[Tau]tilde"}],
                     ",", 
                    RowBox[{
                    RowBox[{"Y", "[", "t", "]"}], "-", 
                    RowBox[{
                    FractionBox["1", "\[Phi]"], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox["\[Gamma]", 
                    RowBox[{"cx", "+", "\[Tau]tilde"}]], ")"}], 
                    "\[Epsilon]"]}]}], ",", 
                    RowBox[{
                    RowBox[{"Y", "[", "t", "]"}], "-", "Y0"}], ",", 
                    RowBox[{"t", "-", "horizon"}]}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"\"\<EventAction\>\"", "\[RuleDelayed]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"t0", "=", 
                    RowBox[{"horizon", "-", "t"}]}], ",", 
                    RowBox[{"ttilde", "=", 
                    RowBox[{"horizon", "-", "t"}]}], ",", 
                    RowBox[{"Throw", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"flagTend", "=", "0"}], ",", 
                    RowBox[{"tmax", "=", 
                    RowBox[{"horizon", "-", "t"}]}]}], "}"}], ",", 
                    "\"\<StopIntegration\>\""}], "]"}], ",", 
                    RowBox[{"Throw", "[", 
                    RowBox[{
                    RowBox[{"flagTend", "=", "1"}], ",", 
                    "\"\<StopIntegration\>\""}], "]"}]}], "}"}]}]}], 
                    "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
               RowBox[{"(*", " ", 
                RowBox[{
                 RowBox[{"comment", "/", "uncomment"}], " ", "the", " ", 
                 "following", " ", "two", " ", 
                 RowBox[{"If", "[", "]"}], " ", "to", " ", 
                 RowBox[{"hide", "/", "show"}], " ", "the", " ", "iteration", 
                 " ", "on", " ", "the", " ", "horizon", " ", "for", " ", 
                 "each", " ", "guessed", " ", "value", " ", "of", " ", 
                 "\[Zeta]1", 
                 RowBox[{"(", "0", ")"}]}], " ", "*)"}], 
               "\[IndentingNewLine]", 
               RowBox[{"(*", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{"flagTend", "\[Equal]", "1"}], ",", 
                   RowBox[{"Print", "[", 
                    RowBox[{
                    "\"\<horizon too short, Tend =\>\"", ",", "horizon", ",", 
                    "\"\< implying flagTend=\>\"", ",", "flagTend"}], "]"}]}],
                   "]"}], ";", "\[IndentingNewLine]", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{"flagTend", "==", "0"}], ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"TX", "=", 
                    RowBox[{"ttilde", "-", "tmax"}]}], ",", 
                    RowBox[{"Print", "[", 
                    RowBox[{
                    "\"\<horizon sufficiently high, Tend =\>\"", ",", 
                    "horizon", ",", "\"\< implying tmax =\>\"", ",", "tmax", 
                    ",", "\"\<, T0 =\>\"", ",", "t0", ",", 
                    "\"\< and TX =\>\"", ",", "TX"}], "]"}]}], "}"}]}], "]"}],
                  ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]",
                "flagTend"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{
             "module", " ", "resol2", " ", "solves", " ", "the", " ", 
              "dynamic", " ", "system", " ", "backwards"}], ",", " ", 
             RowBox[{
              RowBox[{"and", " ", "gives", " ", "flagTend"}], "=", 
              RowBox[{
              "1", " ", "if", " ", "the", " ", "horizon", " ", "is", " ", 
               "sufficiently", " ", "long"}]}], ",", " ", 
             RowBox[{
              RowBox[{"or", " ", "flagTend"}], "=", 
              RowBox[{
              "0", " ", "if", " ", "it", " ", "is", " ", "too", " ", 
               "short"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
           "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"resol2", "[", "horizonguess", "]"}], "\[Equal]", "1"}],
              ",", 
             RowBox[{"For", "[", 
              RowBox[{
               RowBox[{"i", "=", "horizonguess"}], ",", 
               RowBox[{"i", "<", "horizonUbound"}], ",", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"resol2", "[", "i", "]"}], "\[Equal]", "0"}], ",", 
                 RowBox[{"Break", "[", "]"}]}], "]"}], ",", 
               RowBox[{"i", "=", 
                RowBox[{"i", "+", "step"}]}]}], "]"}], ",", 
             RowBox[{"For", "[", 
              RowBox[{
               RowBox[{"i", "=", "horizonguess"}], ",", 
               RowBox[{"i", ">", "horizonLbound"}], ",", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"resol2", "[", "i", "]"}], "\[Equal]", "1"}], ",", 
                 RowBox[{"Break", "[", "]"}]}], "]"}], ",", 
               RowBox[{"i", "=", 
                RowBox[{"i", "-", "step"}]}]}], "]"}]}], "]"}], ";", " ", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{
             "depending", " ", "on", " ", "the", " ", "initial", " ", "tmax", 
              " ", "make", " ", "a", " ", "loop", " ", "on", " ", "Tend", " ",
               "until", " ", "it", " ", "changes", " ", "from", " ", "too", 
              " ", "short", " ", "of", " ", "an", " ", "horizon", " ", "to", 
              " ", "a", " ", "sufficently", " ", "long", " ", "one"}], ",", 
             " ", 
             RowBox[{
             "or", " ", "vice", " ", "versa", " ", "from", " ", "a", " ", 
              "sufficently", " ", "long", " ", "one", " ", "to", " ", "a", 
              " ", "tooshort", " ", "one"}]}], " ", "*)"}], " ", 
           "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"resol2", "[", "i", "]"}], "\[Equal]", "0"}], ",", 
             RowBox[{"Tendoks", "=", "i"}], ",", 
             RowBox[{"Tendoks", "=", 
              RowBox[{"i", "+", "step"}]}]}], "]"}], ";", " ", 
           RowBox[{"(*", " ", 
            RowBox[{
            "stock", " ", "Tend", " ", "that", " ", "works", " ", "to", " ", 
             "use", " ", "it", " ", "out", " ", "of", " ", "the", " ", 
             "loop"}], " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{"comment", "/", "uncomment"}], " ", "the", " ", 
             "following", " ", "six", " ", 
             RowBox[{"Print", "[", "]"}], " ", "to", " ", 
             RowBox[{"hide", "/", "show"}], " ", "the", " ", "iteration", " ",
              "process"}], " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"(*", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Print", "[", 
              RowBox[{
              "\"\<for \[Zeta]1(0)=\>\"", ",", "\[Zeta]10", ",", 
               "\"\<, we use Tend=\>\"", ",", "Tendoks"}], "]"}], ";"}], 
            "*)"}], "\[IndentingNewLine]", 
           RowBox[{"{", "Tendoks", "}"}]}]}], "]"}]}], ";", " ", 
       RowBox[{"(*", " ", 
        RowBox[{
        "module", " ", "resol1", " ", "determines", " ", "the", " ", "best", 
         " ", "horizon", " ", "for", " ", "backward", " ", "shooting"}], " ", 
        "*)"}], "\[IndentingNewLine]", 
       RowBox[{"(*", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{"\"\<old horizonguess=\>\"", ",", "horizonguess"}], "]"}], 
         ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"Tend", "=", 
        RowBox[{
         RowBox[{"resol1", "[", "horizonguess", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"horizonguess", "=", "Tend"}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{"\"\<new horizonguess=\>\"", ",", "horizonguess"}], "]"}], 
         ";"}], "\[IndentingNewLine]", "*)"}], "\n", "\t", 
       RowBox[{
        RowBox[{"\[Mu]dotSB1a", "[", 
         RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}], " ", "\[Mu]"}], " ", 
         "-", 
         RowBox[{"\[Beta]", "  ", "c1", " ", 
          SuperscriptBox["y", 
           RowBox[{
            RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Mu]", "-", 
             RowBox[{"c1", " ", 
              SuperscriptBox["y", 
               RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], " ", "-", 
         " ", 
         RowBox[{"\[Phi]", " ", 
          RowBox[{"(", 
           RowBox[{"cx", "+", "\[Tau]tilde"}], ")"}]}]}]}], " ", ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[Mu]dotSB1b", "[", 
         RowBox[{"\[Mu]_", ",", "y_", ",", "\[Zeta]1_"}], "]"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}], " ", "\[Mu]"}], " ", 
         "-", 
         RowBox[{"\[Beta]", "  ", "c1", " ", 
          SuperscriptBox["y", 
           RowBox[{
            RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Mu]", "-", 
             RowBox[{"c1", " ", 
              SuperscriptBox["y", 
               RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], " ", "-", 
         " ", 
         RowBox[{"\[Phi]", " ", 
          RowBox[{"(", 
           RowBox[{"cx", "+", "\[Zeta]1"}], ")"}]}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[Mu]dotSB2", "[", 
         RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}], " ", "\[Mu]"}], " ", 
         "-", 
         RowBox[{"\[Beta]", " ", "c1", " ", 
          SuperscriptBox["y", 
           RowBox[{
            RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Mu]", "-", 
             RowBox[{"c1", " ", 
              SuperscriptBox["y", 
               RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], "-", "  ", 
         RowBox[{"\[Gamma]", 
          SuperscriptBox["\[Phi]", 
           RowBox[{"1", "-", 
            RowBox[{"1", "/", "\[Epsilon]"}]}]], "  ", 
          SuperscriptBox["y", 
           RowBox[{
            RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"YdotSB12", "[", 
         RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", " ", 
        RowBox[{
         RowBox[{
          FractionBox["1", "c2"], " ", 
          RowBox[{"(", 
           RowBox[{"\[Mu]", "-", 
            RowBox[{"c1", " ", 
             SuperscriptBox["y", 
              RowBox[{"-", "\[Beta]"}]]}]}], ")"}]}], "-", 
         RowBox[{"\[Delta]", " ", "y"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"deY", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Y", "'"}], "[", "t", "]"}], "\[Equal]", 
         RowBox[{"-", 
          RowBox[{"YdotSB12", "[", 
           RowBox[{
            RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
            RowBox[{"Y", "[", "t", "]"}]}], "]"}]}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"de\[Zeta]1", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Zeta]1", "'"}], "[", "t", "]"}], "\[Equal]", 
         RowBox[{
          RowBox[{"-", "\[Rho]"}], " ", 
          RowBox[{"\[Zeta]1", "[", "t", "]"}]}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"de\[Mu]", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Mu]", "'"}], "[", "t", "]"}], "\[Equal]", 
         RowBox[{"-", 
          RowBox[{"Piecewise", "[", 
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"{", " ", 
              RowBox[{
               RowBox[{"\[Mu]dotSB1a", "[", 
                RowBox[{
                 RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
                 RowBox[{"Y", "[", "t", "]"}]}], "]"}], ",", 
               RowBox[{
                RowBox[{"\[Zeta]1", "[", "t", "]"}], "\[LessEqual]", 
                "\[Tau]tilde"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\[Mu]dotSB1b", "[", 
                RowBox[{
                 RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
                 RowBox[{"Y", "[", "t", "]"}], ",", 
                 RowBox[{"\[Zeta]1", "[", "t", "]"}]}], "]"}], ",", 
               RowBox[{
                RowBox[{"Y", "[", "t", "]"}], "\[IndentingNewLine]", 
                "\[LessEqual]", 
                RowBox[{
                 FractionBox["1", "\[Phi]"], 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"\[Gamma]", "/", 
                    RowBox[{"(", 
                    RowBox[{"cx", "+", "\[Tau]tilde"}], ")"}]}], ")"}], 
                  "\[Epsilon]"]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\[Mu]dotSB2", "[", 
                RowBox[{
                 RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
                 RowBox[{"Y", "[", "t", "]"}]}], "]"}], ",", 
               RowBox[{
                RowBox[{
                 FractionBox["1", "\[Phi]"], 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"\[Gamma]", "/", 
                    RowBox[{"(", 
                    RowBox[{"cx", "+", "\[Tau]tilde"}], ")"}]}], ")"}], 
                  "\[Epsilon]"]}], " ", "<", 
                RowBox[{"Y", "[", "t", "]"}]}]}], "}"}]}], 
            "\[IndentingNewLine]", "}"}], "]"}]}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"sol", "=", 
        RowBox[{"NDSolve", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"deY", ",", "de\[Mu]", ",", "de\[Zeta]1", ",", 
            RowBox[{
             RowBox[{"Y", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Ystar", 
              RowBox[{"(", 
               RowBox[{"1", "-", " ", 
                SuperscriptBox["10", 
                 RowBox[{"-", "3"}]]}], ")"}]}]}], ",", 
            RowBox[{
             RowBox[{"\[Mu]", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"\[Mu]star", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                SuperscriptBox["10", 
                 RowBox[{"-", "3"}]]}], ")"}]}]}], ",", 
            RowBox[{
             RowBox[{"\[Zeta]1", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"\[Zeta]10", " ", 
              RowBox[{"Exp", "[", 
               RowBox[{"\[Rho]", " ", "Tend"}], "]"}]}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Y", ",", "\[Mu]", ",", "\[Zeta]1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", "Tend"}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Method", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"\"\<EventLocator\>\"", ",", "\[IndentingNewLine]", 
             RowBox[{"\"\<Event\>\"", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"\[Zeta]1", "[", "t", "]"}], "-", "\[Tau]tilde"}], 
                ",", 
                RowBox[{
                 RowBox[{"Y", "[", "t", "]"}], "-", 
                 RowBox[{
                  FractionBox["1", "\[Phi]"], 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"\[Gamma]", "/", 
                    RowBox[{"(", 
                    RowBox[{"cx", "+", "\[Tau]tilde"}], ")"}]}], ")"}], 
                   "\[Epsilon]"]}]}], ",", 
                RowBox[{
                 RowBox[{"Y", "[", "t", "]"}], "-", "Y0"}]}], "}"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<EventAction\>\"", "\[RuleDelayed]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"t0", "=", 
                 RowBox[{"Tend", "-", "t"}]}], ",", 
                RowBox[{"ttilde", "=", 
                 RowBox[{"Tend", "-", "t"}]}], ",", 
                RowBox[{"tmax", "=", 
                 RowBox[{"Tend", "-", "t"}]}]}], "}"}]}]}], "}"}]}]}], 
         "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"T0", "=", 
        RowBox[{"t0", "-", "tmax"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Ttilde", "=", 
        RowBox[{"ttilde", "-", "tmax"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{
          "\"\<for \[Zeta]1(0)=\>\"", ",", "\[Zeta]10", ",", 
           "\"\<, the backward shooting horizon approximation is tmax =\>\"", 
           ",", "tmax"}], "]"}], ";"}], "\[IndentingNewLine]", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Yb", "[", "t_", "]"}], "=", 
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"Y", "[", "t", "]"}], "/.", 
          RowBox[{"sol", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[Mu]b", "[", "t_", "]"}], "=", 
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"\[Mu]", "[", "t", "]"}], "/.", 
          RowBox[{"sol", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[Zeta]1b", "[", "t_", "]"}], "=", 
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"\[Zeta]1", "[", "t", "]"}], "/.", 
          RowBox[{"sol", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Yf", "[", "t_", "]"}], "=", 
        RowBox[{"Yb", "[", 
         RowBox[{"Tend", "-", "tmax", "-", "t"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[Mu]f", "[", "t_", "]"}], "=", 
        RowBox[{"\[Mu]b", "[", 
         RowBox[{"Tend", "-", "tmax", "-", "t"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[Zeta]1f", "[", "t_", "]"}], "=", 
        RowBox[{"\[Zeta]1b", "[", 
         RowBox[{"Tend", "-", "tmax", "-", "t"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[Sigma]", "[", "t_", "]"}], "=", 
        RowBox[{"Piecewise", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\[Beta]", " ", "c1", " ", 
              SuperscriptBox[
               RowBox[{"Yf", "[", "t", "]"}], 
               RowBox[{
                RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Mu]f", "[", "t", "]"}], "-", 
                 RowBox[{"c1", " ", 
                  SuperscriptBox[
                   RowBox[{"Yf", "[", "t", "]"}], 
                   RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", 
               RowBox[{"(", 
                RowBox[{"\[Phi]", " ", "c2"}], ")"}]}]}], ",", 
             RowBox[{"t", "<", "T0"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"\[Zeta]1f", "[", " ", "t", "]"}], "-", "\[Tau]tilde", 
              "+", 
              RowBox[{"\[Beta]", " ", "c1", " ", 
               SuperscriptBox[
                RowBox[{"Yf", "[", "t", "]"}], 
                RowBox[{
                 RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"\[Mu]f", "[", "t", "]"}], "-", 
                  RowBox[{"c1", " ", 
                   SuperscriptBox[
                    RowBox[{"Yf", "[", "t", "]"}], 
                    RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", 
                RowBox[{"(", 
                 RowBox[{"\[Phi]", " ", "c2"}], ")"}]}]}]}], ",", 
             RowBox[{"T0", "\[LessEqual]", "t", "<", "Ttilde"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\[Beta]", " ", "c1", " ", 
              SuperscriptBox[
               RowBox[{"Yf", "[", "t", "]"}], 
               RowBox[{
                RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Mu]f", "[", "t", "]"}], "-", 
                 RowBox[{"c1", " ", 
                  SuperscriptBox[
                   RowBox[{"Yf", "[", "t", "]"}], 
                   RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", 
               RowBox[{"(", 
                RowBox[{"\[Phi]", " ", "c2"}], ")"}]}]}], ",", 
             RowBox[{"t", ">", "Ttilde"}]}], "}"}]}], "}"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"x", "[", "t_", "]"}], "=", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox["\[Gamma]", 
            RowBox[{"cx", "+", "\[Tau]tilde"}]], ")"}], "\[Epsilon]"], "-", 
         RowBox[{"\[Phi]", " ", 
          RowBox[{"Yf", "[", "t", "]"}]}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"X", "=", 
        RowBox[{"NIntegrate", "[", 
         RowBox[{
          RowBox[{"x", "[", "t", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", "Ttilde"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"e", "[", "t_", "]"}], "=", 
        RowBox[{"Piecewise", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"x", "[", "t", "]"}], "+", 
              RowBox[{"\[Phi]", " ", 
               RowBox[{"Yf", "[", "t", "]"}]}]}], ",", 
             RowBox[{"t", "<", "Ttilde"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\[Phi]", " ", 
              RowBox[{"Yf", "[", "t", "]"}]}], ",", 
             RowBox[{"t", "\[GreaterEqual]", "Ttilde"}]}], "}"}]}], "}"}], 
         "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"X", ",", 
         RowBox[{"\[Mu]f", "[", "t", "]"}], ",", 
         RowBox[{"Yf", "[", "t", "]"}], ",", 
         RowBox[{"\[Zeta]1f", "[", "t", "]"}], ",", 
         RowBox[{"\[Sigma]", "[", "t", "]"}], ",", 
         RowBox[{"x", "[", "t", "]"}], ",", 
         RowBox[{"e", "[", "t", "]"}], ",", "T0", ",", "Ttilde", ",", 
         "Tend"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "module", " ", "resol0", " ", "gives", " ", "trajectories", " ", "with", 
    " ", "the", " ", "best", " ", "horizon", " ", "for", " ", "an", " ", 
    "arbitrary", " ", "initial", " ", "value", " ", "of", " ", "carbon", " ", 
    "\[Zeta]1", 
    RowBox[{"(", "0", ")"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Zeta]1grid", "[", 
    RowBox[{"\[Zeta]1low_", ",", "\[Zeta]1high_", ",", "n_"}], "]"}], ":=", 
   " ", 
   RowBox[{"Range", "[", 
    RowBox[{"\[Zeta]1low", ",", "\[Zeta]1high", ",", 
     FractionBox[
      RowBox[{"\[Zeta]1high", "-", "\[Zeta]1low"}], 
      RowBox[{"n", "-", "1"}]]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"iterationModule", "[", "vector_", "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\[Zeta]1low", ",", "\[Zeta]1high", ",", "grid", ",", "calculatedX", ",",
       "distanceFromX", ",", "closestElement", ",", "new\[Zeta]1low", ",", 
      "new\[Zeta]1high", ",", "newGridBoundaries", ",", "newVector"}], "}"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Zeta]1low", " ", "=", " ", 
      RowBox[{"vector", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"\[Zeta]1high", " ", "=", " ", 
      RowBox[{"vector", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"(*", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
       "Print", "[", 
        "\"\<************* interation on interval for \[Zeta]1(0) \
*************\>\"", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{
        "\"\<Change interval for the search of the \[Zeta]1(0) to \>\"", ",", 
         RowBox[{"{", 
          RowBox[{"\[Zeta]1low", ",", "\[Zeta]1high"}], "}"}]}], "]"}], ";"}],
       "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"grid", " ", "=", " ", 
      RowBox[{"\[Zeta]1grid", "[", 
       RowBox[{"\[Zeta]1low", ",", "\[Zeta]1high", ",", "n"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"calculatedX", " ", "=", " ", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{"resol0", ",", "grid"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"distanceFromX", " ", "=", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"calculatedX", " ", "-", " ", "Xbar"}], ")"}], "2"]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"closestElement", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"Take", "[", 
         RowBox[{"#", ",", 
          RowBox[{"Ordering", "[", 
           RowBox[{
            RowBox[{"Last", "/@", "#"}], ",", "1"}], "]"}]}], "]"}], "&"}], 
       "@", 
       RowBox[{"Thread", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"grid", ",", "distanceFromX"}], "}"}], ",", "List"}], 
        "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"new\[Zeta]1low", " ", "=", " ", 
      RowBox[{
       RowBox[{"closestElement", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"closestElement", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "\[Zeta]1low"}], 
          ")"}], " ", ".5"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"new\[Zeta]1high", " ", "=", "  ", 
      RowBox[{
       RowBox[{"closestElement", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\[Zeta]1high", "-", 
           RowBox[{"closestElement", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ")"}], " ", ".5"}], 
        ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"newGridBoundaries", "=", " ", 
      RowBox[{"{", 
       RowBox[{"new\[Zeta]1low", ",", "new\[Zeta]1high"}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"newVector", " ", "=", " ", 
      RowBox[{"{", 
       RowBox[{"newGridBoundaries", ",", "closestElement"}], "}"}]}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"iterate", "[", 
   RowBox[{"\[Zeta]1low_", ",", "\[Zeta]1high_", ",", "nbiter_"}], "]"}], ":=",
   " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "res", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"res", " ", "=", 
      RowBox[{"Nest", "[", 
       RowBox[{"iterationModule", ",", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"\[Zeta]1low", ",", "\[Zeta]1high"}], "}"}], "}"}], ",", 
        "nbiter"}], "]"}]}], ";", " ", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "modules", " ", "iterationmodule", " ", "and", " ", "iterate", " ", 
       "determine", " ", "the", " ", "initial", " ", "value", " ", "of", " ", 
       "carbon", " ", "\[Zeta]1", 
       RowBox[{"(", "0", ")"}], " ", "complying", " ", "with", " ", "the", 
       " ", "carbon", " ", "budget"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
     "Print", "[", 
      "\"\<*****************************************************************\>\
\"", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{
     "Print", "[", 
      "\"\<*********************** Large carbon tax case \
************************\>\"", "]"}], ";", 
     RowBox[{
     "Print", "[", 
      "\"\<************* report at the end of the interations on \[Zeta]1(0) \
*************\>\"", "]"}], ";", 
     RowBox[{
     "Print", "[", 
      "\"\<*****************************************************************\>\
\"", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<Initial grid boundaries for \[Zeta]1(0) = \>\"", ",", " ", 
       RowBox[{"{", 
        RowBox[{"\[Zeta]1Lbound", ",", "\[Zeta]1Hbound"}], "}"}]}], "]"}], 
     ";", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<Final grid boundaries = \>\"", ",", " ", 
       RowBox[{"res", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<\[Zeta]10 = \>\"", ",", " ", 
       RowBox[{"res", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "1", ",", "1"}], "]"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<Distance from Xbar = \>\"", ",", " ", 
       RowBox[{"res", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "res"}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"\[Zeta]1low", " ", "=", "\[Zeta]1Lbound"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Zeta]1high", " ", "=", "\[Zeta]1Hbound"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "=", "nL"}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nbiter", " ", "=", "nbiterL"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"iterRes", " ", "=", 
   RowBox[{"iterate", "[", 
    RowBox[{"\[Zeta]1low", ",", "\[Zeta]1high", ",", "nbiter"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Zeta]10star", " ", "=", " ", 
    RowBox[{"iterRes", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "1", ",", "1"}], "]"}], "]"}]}], ";"}], 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Xbars", " ", "=", 
   RowBox[{
    RowBox[{"resol0", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Mu]fs", "[", "t_", "]"}], " ", "=", 
   RowBox[{
    RowBox[{"resol0", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Yfs", "[", "t_", "]"}], " ", "=", 
   RowBox[{
    RowBox[{"resol0", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Zeta]1fs", "[", "t_", "]"}], " ", "=", 
   RowBox[{
    RowBox[{"resol0", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "4", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Sigma]s", "[", "t_", "]"}], " ", "=", 
   RowBox[{
    RowBox[{"resol0", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "5", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"xs", "[", "t_", "]"}], " ", "=", 
   RowBox[{
    RowBox[{"resol0", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "6", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"es", "[", "t_", "]"}], " ", "=", 
   RowBox[{
    RowBox[{"resol0", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "7", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T0s", " ", "=", 
   RowBox[{
    RowBox[{"resol0", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "8", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ttildes", " ", "=", 
   RowBox[{
    RowBox[{"resol0", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "9", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Tends", "=", 
    RowBox[{
     RowBox[{"resol0", "[", "\[Zeta]10star", "]"}], "[", 
     RowBox[{"[", "10", "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Tends = \>\"", ",", "Tends"}], "]"}], ";"}], " "}]}], "Input",
 CellChangeTimes->{{3.826697519672256*^9, 3.826697580027843*^9}, {
   3.826697652352769*^9, 3.8266977554561663`*^9}, {3.8266978504549828`*^9, 
   3.8266980625810966`*^9}, {3.826698118584816*^9, 3.82669813683633*^9}, {
   3.82671708533427*^9, 3.82671711297655*^9}, {3.826717195616568*^9, 
   3.8267172879058332`*^9}, {3.8267173280925407`*^9, 3.826717333641568*^9}, {
   3.826717522821595*^9, 3.826717570299461*^9}, {3.826717680880262*^9, 
   3.826717744163055*^9}, {3.8267701655635223`*^9, 3.8267701859289627`*^9}, 
   3.8267827128347197`*^9, {3.8267828066452017`*^9, 3.82678282296761*^9}, {
   3.826783014197393*^9, 3.8267830193821793`*^9}, {3.826783053053761*^9, 
   3.8267831904013863`*^9}, {3.826783283921215*^9, 3.826783353695147*^9}, {
   3.826783398939056*^9, 3.826783468595071*^9}, {3.8267839748795967`*^9, 
   3.826784025944957*^9}, {3.826784076268982*^9, 3.826784099613714*^9}, {
   3.826802617136519*^9, 3.8268026181797743`*^9}, {3.826802651897314*^9, 
   3.82680267122538*^9}, {3.826802722431972*^9, 3.826802767546453*^9}, {
   3.826802800603544*^9, 3.826802830739423*^9}, {3.826802862078915*^9, 
   3.8268028915248327`*^9}, {3.8268029217129583`*^9, 3.826802922935287*^9}, {
   3.8325799020902243`*^9, 3.83257991082253*^9}, {3.83258017566625*^9, 
   3.832580177208193*^9}, {3.832580226339326*^9, 3.832580227036541*^9}, {
   3.832580278582456*^9, 3.8325804303569593`*^9}, {3.832580461030594*^9, 
   3.8325804766469593`*^9}, 3.832580591372081*^9, 3.8325816333865843`*^9, {
   3.832581693506543*^9, 3.83258169403688*^9}, {3.832581729792838*^9, 
   3.832581731973393*^9}, 3.8327608773441143`*^9, {3.832760912232373*^9, 
   3.832760957930429*^9}, {3.8327616436011877`*^9, 3.832761674425411*^9}, {
   3.83281481827204*^9, 3.832814824036419*^9}, {3.832814911489626*^9, 
   3.832814912218461*^9}, {3.832815028115548*^9, 3.8328150895946007`*^9}, 
   3.8328152122241592`*^9, 3.83281525241672*^9, {3.832815299537415*^9, 
   3.832815300150611*^9}, {3.8328219508123713`*^9, 3.8328219516773767`*^9}, {
   3.8328220020371017`*^9, 3.832822006343603*^9}, {3.832822042412553*^9, 
   3.832822043304326*^9}, {3.83282212518801*^9, 3.832822126103573*^9}, {
   3.832822167920742*^9, 3.832822179657393*^9}, {3.832822218391253*^9, 
   3.832822219290711*^9}, {3.832822250934577*^9, 3.832822253951581*^9}, 
   3.832822322940024*^9, {3.832822374068527*^9, 3.832822374897048*^9}, {
   3.8328224264429293`*^9, 3.8328224272685833`*^9}, {3.832822459102688*^9, 
   3.832822460137269*^9}, 3.832822508242244*^9, 3.8337133494149017`*^9, {
   3.8337133846093063`*^9, 3.833713386142579*^9}, {3.846168616840665*^9, 
   3.846168896852541*^9}, {3.846168932383956*^9, 3.8461690023694143`*^9}, {
   3.846169089428948*^9, 3.846169180556508*^9}, {3.8461692683686113`*^9, 
   3.846169350350443*^9}, {3.846169380378189*^9, 3.846169450908692*^9}, {
   3.8465644626160965`*^9, 3.8465645791262984`*^9}, {3.8465646186629257`*^9, 
   3.846564633874517*^9}, {3.846564664949559*^9, 3.8465647643150935`*^9}, {
   3.8465648836830063`*^9, 3.846564884603797*^9}, {3.846565181204013*^9, 
   3.8465652339227037`*^9}, {3.8465653002792697`*^9, 3.846565348791662*^9}, {
   3.8465653941292987`*^9, 3.846565534488723*^9}, {3.8465657634089823`*^9, 
   3.846565763831935*^9}, {3.846565817722123*^9, 3.8465658181477704`*^9}, {
   3.846565869733901*^9, 3.8465658796397505`*^9}, {3.846565922079465*^9, 
   3.846565975746462*^9}, {3.8465660412443304`*^9, 3.846566041672748*^9}, {
   3.8465660832935743`*^9, 3.846566083755465*^9}, {3.846566125150813*^9, 
   3.846566125620896*^9}, {3.8465661803508615`*^9, 3.846566181736549*^9}, {
   3.8465662246347404`*^9, 3.8465662250377464`*^9}, {3.8465662715772862`*^9, 
   3.8465662719762306`*^9}, {3.846566316131551*^9, 3.846566316542246*^9}, {
   3.846566369764449*^9, 3.846566371018426*^9}, {3.8465664146601253`*^9, 
   3.846566450868167*^9}, {3.8465664815575085`*^9, 3.846566482546114*^9}, {
   3.846566523558004*^9, 3.846566524219438*^9}, {3.846566564048211*^9, 
   3.8465665645473433`*^9}, {3.846566597287648*^9, 3.846566597731559*^9}, {
   3.846566654310875*^9, 3.8465666547324963`*^9}, {3.8465666960379333`*^9, 
   3.8465666972313366`*^9}, {3.8465667310701065`*^9, 3.846566731508182*^9}, 
   3.846566763357732*^9, {3.8465668273097878`*^9, 3.8465668564927425`*^9}, {
   3.846572142198427*^9, 3.8465721434379787`*^9}, {3.8465721954951954`*^9, 
   3.8465721959316025`*^9}, {3.8465722511116605`*^9, 3.846572251397266*^9}, {
   3.846572297723818*^9, 3.84657229810223*^9}, {3.846572344819878*^9, 
   3.8465723489396024`*^9}, {3.846572402676483*^9, 3.846572403596615*^9}, {
   3.846816887816596*^9, 3.846816907888953*^9}, {3.8468169798589993`*^9, 
   3.846816980656866*^9}, 3.8468170652502584`*^9, {3.8468171278631983`*^9, 
   3.8468171297001514`*^9}, {3.846817162308836*^9, 3.846817162677336*^9}, {
   3.846817199814546*^9, 3.846817205683964*^9}, {3.846817250389989*^9, 
   3.8468172547467213`*^9}, {3.846817317347084*^9, 3.8468173215464487`*^9}, {
   3.8468173560918417`*^9, 3.846817356498454*^9}, {3.84681741982694*^9, 
   3.8468174222333508`*^9}, {3.8468174588604684`*^9, 
   3.8468174654173975`*^9}, {3.846817497173332*^9, 3.846817497572523*^9}, {
   3.846817542156522*^9, 3.846817543737306*^9}, 3.846817613948851*^9, {
   3.846817652835613*^9, 3.8468176532845783`*^9}, {3.846817784883647*^9, 
   3.8468177896046*^9}, {3.8468178294456234`*^9, 3.8468178298116064`*^9}, {
   3.846840592748277*^9, 3.846840593469572*^9}, {3.84684072787004*^9, 
   3.8468407897975545`*^9}, {3.846840885581024*^9, 3.8468410480771875`*^9}, {
   3.846841113928362*^9, 3.846841148926806*^9}, {3.8468411953338594`*^9, 
   3.8468412622909083`*^9}, {3.846845522308096*^9, 3.8468455327493944`*^9}, {
   3.846845631440799*^9, 3.846845633055486*^9}, {3.8468457220817623`*^9, 
   3.846845722511705*^9}, {3.8468457728250885`*^9, 3.8468457732191086`*^9}, {
   3.846845825580093*^9, 3.846845830737089*^9}, {3.846845865993413*^9, 
   3.8468458663714824`*^9}, {3.846845901089572*^9, 3.846845928163545*^9}, 
   3.8468460182097683`*^9, {3.84684605586761*^9, 3.846846056274093*^9}, {
   3.8468460896448784`*^9, 3.8468460900870004`*^9}, {3.8468461218678594`*^9, 
   3.846846122263889*^9}, {3.8468461651820526`*^9, 3.8468461962369614`*^9}, {
   3.8468462277838097`*^9, 3.8468462281858234`*^9}, {3.846846277123144*^9, 
   3.846846277559677*^9}, {3.8468463084458933`*^9, 3.84684630888103*^9}, {
   3.84684634195434*^9, 3.846846342525428*^9}, {3.846846372621909*^9, 
   3.8468463731648135`*^9}, {3.8468464147153444`*^9, 3.846846417137335*^9}, {
   3.8468464492196875`*^9, 3.8468465078554893`*^9}, 3.846846545620405*^9, 
   3.8468465831183376`*^9, {3.847168350628271*^9, 3.847168356873187*^9}, {
   3.847168421581848*^9, 3.84716842325585*^9}, {3.8471684666598234`*^9, 
   3.8471684965488424`*^9}, {3.847168532728888*^9, 3.847168534785991*^9}, {
   3.8471685690342646`*^9, 3.847168569464798*^9}, 3.8471687036475515`*^9, {
   3.847168754402199*^9, 3.84716875478022*^9}, {3.847168795384446*^9, 
   3.8471687967097855`*^9}, {3.8471688552194343`*^9, 3.847168862161374*^9}, 
   3.8471818830135994`*^9, {3.847181954726035*^9, 3.8471819554131203`*^9}, {
   3.8471820020222545`*^9, 3.8471820024534235`*^9}, {3.8471820561555595`*^9, 
   3.847182056837702*^9}, {3.8471822238978186`*^9, 3.847182230085563*^9}, {
   3.84718228831876*^9, 3.847182289354521*^9}, {3.8471823419303937`*^9, 
   3.8471823422775517`*^9}, {3.8471823741229897`*^9, 
   3.8471823753188696`*^9}, {3.847182441142972*^9, 3.8471824480104837`*^9}, {
   3.847182510540641*^9, 3.847182511399679*^9}, {3.847182553783943*^9, 
   3.847182554184085*^9}, {3.8471826230179844`*^9, 3.8471826299118166`*^9}, {
   3.847182676413659*^9, 3.847182676811701*^9}, {3.8471827085581083`*^9, 
   3.847182717800353*^9}, {3.847183277543023*^9, 3.8471833042939157`*^9}, {
   3.847183364775496*^9, 3.847183368420535*^9}, {3.8471857555482073`*^9, 
   3.847185759849716*^9}, {3.8471857988380156`*^9, 3.847185799498404*^9}, {
   3.8471862464220467`*^9, 3.847186247308177*^9}, {3.8471862990537233`*^9, 
   3.8471863005417523`*^9}, {3.847186349199266*^9, 3.8471863537260284`*^9}, {
   3.8471863997277765`*^9, 3.8471864028614235`*^9}, {3.847187199011094*^9, 
   3.847187208704338*^9}, {3.847187358284011*^9, 3.847187360383865*^9}, {
   3.8471878345448847`*^9, 3.8471878374724317`*^9}, {3.8471878934430323`*^9, 
   3.847187901599221*^9}, {3.847187988945199*^9, 3.8471879894877634`*^9}, {
   3.8471880239050446`*^9, 3.847188024367765*^9}, {3.847188066721484*^9, 
   3.8471880671798053`*^9}, {3.847787549012091*^9, 3.847787583563673*^9}, {
   3.8477882007878876`*^9, 3.8477882012808805`*^9}, {3.8477882440789742`*^9, 
   3.8477882444779377`*^9}, {3.8477883297240467`*^9, 3.847788330079031*^9}, {
   3.8477883669558277`*^9, 3.847788369282047*^9}, {3.8477884125800653`*^9, 
   3.8477884129741087`*^9}, 3.8477884774711094`*^9, {3.847788528223155*^9, 
   3.8477885320155935`*^9}, {3.847788576734928*^9, 3.847788577246089*^9}, 
   3.8477886259991083`*^9, {3.847788670326703*^9, 3.8477886728459463`*^9}, {
   3.8477887164351254`*^9, 3.847788716818091*^9}, {3.847788759446004*^9, 
   3.847788760119931*^9}, 3.847789188269428*^9, {3.847789228093193*^9, 
   3.847789228572428*^9}, 3.847789370379602*^9, {3.8477894099547787`*^9, 
   3.847789410397631*^9}, {3.8477974737620935`*^9, 3.8477974775854053`*^9}, {
   3.850108910072337*^9, 3.850108948123698*^9}, {3.8501114965688*^9, 
   3.8501115646414223`*^9}, {3.850111622211726*^9, 3.850111647535722*^9}, {
   3.850111752087123*^9, 3.850111767141864*^9}, 3.850111805420397*^9, {
   3.8501119195332327`*^9, 3.850112010576271*^9}, {3.8501127145721493`*^9, 
   3.8501127157769012`*^9}, {3.850132090613768*^9, 3.850132093082432*^9}, {
   3.850135587965508*^9, 3.850135593267927*^9}, {3.85013597398726*^9, 
   3.850135974828233*^9}, {3.850136180358485*^9, 3.850136181091742*^9}, {
   3.850136681413348*^9, 3.85013668572151*^9}, {3.8501367254338284`*^9, 
   3.850136725950431*^9}, 3.85013685967074*^9, {3.850137024369426*^9, 
   3.850137025939783*^9}, {3.850137247456945*^9, 3.850137248232656*^9}, {
   3.850137287330532*^9, 3.850137288039843*^9}, {3.850137336317925*^9, 
   3.8501373417764397`*^9}, {3.850137480998705*^9, 3.850137482713292*^9}, {
   3.8502170413188868`*^9, 3.850217047796528*^9}, {3.85053664455005*^9, 
   3.850536646830055*^9}, {3.850536708580854*^9, 3.8505367095563993`*^9}, {
   3.850634297582638*^9, 3.85063430347161*^9}, {3.8506358867779007`*^9, 
   3.8506358877560263`*^9}, {3.851315299300828*^9, 3.851315306607574*^9}, {
   3.851752668748623*^9, 3.851752677923747*^9}, {3.862319573228466*^9, 
   3.862319579714252*^9}, {3.8623196272938337`*^9, 3.862319795894936*^9}, {
   3.8623198331670923`*^9, 3.8623199640663652`*^9}, {3.862321004905266*^9, 
   3.8623210059089403`*^9}, {3.8623211170377493`*^9, 3.862321117701063*^9}, {
   3.8623839988654137`*^9, 3.862384002032621*^9}, {3.862384101647729*^9, 
   3.86238410297596*^9}, {3.864787515720937*^9, 3.8647875166042233`*^9}, {
   3.877683124134248*^9, 3.877683129063465*^9}, {3.8776832020133715`*^9, 
   3.877683202434169*^9}, {3.8776833659370756`*^9, 3.877683371185068*^9}, {
   3.877683487268121*^9, 3.8776834889922857`*^9}, {3.8797387303332233`*^9, 
   3.8797387308395863`*^9}, {3.882356415755361*^9, 3.882356416582795*^9}, {
   3.8826072073105383`*^9, 3.882607208449641*^9}, {3.882932728463151*^9, 
   3.882932733989991*^9}, {3.882933214898098*^9, 3.882933217522271*^9}, 
   3.882933516741938*^9, {3.882933646911234*^9, 3.882933650178574*^9}, {
   3.882933762216386*^9, 3.882933763119514*^9}, {3.882933818586926*^9, 
   3.882933823157077*^9}, {3.882938154092786*^9, 3.882938157520897*^9}, {
   3.88293818774172*^9, 3.882938189353294*^9}, {3.882939680721067*^9, 
   3.882939685381291*^9}, {3.883219455862995*^9, 3.883219459219775*^9}, {
   3.8832219107460403`*^9, 3.883221911799483*^9}, {3.883221962472313*^9, 
   3.8832219679853773`*^9}, {3.883223397595683*^9, 3.8832234019908075`*^9}, {
   3.883223880690402*^9, 3.883223895961172*^9}, {3.884970400754181*^9, 
   3.8849704086457534`*^9}, {3.912084339716503*^9, 3.9120844395089874`*^9}, {
   3.91208447081103*^9, 3.9120844932078114`*^9}, {3.9120845683741307`*^9, 
   3.9120845941352015`*^9}, {3.9120846435642834`*^9, 3.912084644876994*^9}, {
   3.912084696406499*^9, 3.9120847029597178`*^9}, {3.912084772611642*^9, 
   3.9120848155430903`*^9}, {3.9120848724360723`*^9, 
   3.9120848727800913`*^9}, {3.912086225615864*^9, 3.9120862303283987`*^9}, {
   3.912086295732419*^9, 3.912086296313202*^9}, {3.9120865591882124`*^9, 
   3.9120865690609694`*^9}, {3.9120866035496564`*^9, 3.912086604320103*^9}, {
   3.961064892667613*^9, 3.961064934718647*^9}, {3.961065025395195*^9, 
   3.961065074499457*^9}, {3.9610651280792828`*^9, 3.961065164677861*^9}, {
   3.961065215512128*^9, 3.9610652740269156`*^9}, {3.961065320607253*^9, 
   3.9610653229108973`*^9}, 3.961065375312503*^9, {3.961065442253212*^9, 
   3.961065482331832*^9}, {3.961065563509569*^9, 3.961065618090824*^9}, {
   3.961065741666436*^9, 3.961065787962079*^9}, {3.961065818739813*^9, 
   3.9610658382813025`*^9}, {3.961066159832528*^9, 3.9610661649517126`*^9}, {
   3.9610662376320367`*^9, 3.9610663304477797`*^9}, {3.961066379302757*^9, 
   3.961066491169346*^9}, {3.9610666503347626`*^9, 3.9610667856366673`*^9}, {
   3.9610681293688965`*^9, 3.9610681302035456`*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"34500c77-b554-4907-9ade-6ddd38036d11"],

Cell[CellGroupData[{

Cell["Results", "Subsubsection",
 CellChangeTimes->{{3.826697519672256*^9, 3.826697580027843*^9}, {
   3.826697652352769*^9, 3.8266977554561663`*^9}, {3.8266978504549828`*^9, 
   3.8266980625810966`*^9}, {3.826698118584816*^9, 3.82669813683633*^9}, {
   3.82671708533427*^9, 3.82671711297655*^9}, {3.826717195616568*^9, 
   3.8267172879058332`*^9}, {3.8267173280925407`*^9, 3.826717333641568*^9}, {
   3.826717522821595*^9, 3.826717570299461*^9}, {3.826717680880262*^9, 
   3.826717744163055*^9}, {3.8267701655635223`*^9, 3.8267701859289627`*^9}, 
   3.8267827128347197`*^9, {3.8267828066452017`*^9, 3.82678282296761*^9}, {
   3.826783014197393*^9, 3.8267830193821793`*^9}, {3.826783053053761*^9, 
   3.8267831904013863`*^9}, {3.826783283921215*^9, 3.826783353695147*^9}, {
   3.826783398939056*^9, 3.826783468595071*^9}, {3.8267839748795967`*^9, 
   3.826784025944957*^9}, {3.826784076268982*^9, 3.826784099613714*^9}, {
   3.826802617136519*^9, 3.8268026181797743`*^9}, {3.826802651897314*^9, 
   3.82680267122538*^9}, {3.826802722431972*^9, 3.826802767546453*^9}, {
   3.826802800603544*^9, 3.826802830739423*^9}, {3.826802862078915*^9, 
   3.8268028915248327`*^9}, {3.8268029217129583`*^9, 3.826802922935287*^9}, {
   3.8325799020902243`*^9, 3.83257991082253*^9}, {3.83258017566625*^9, 
   3.832580177208193*^9}, {3.832580226339326*^9, 3.832580227036541*^9}, {
   3.832580278582456*^9, 3.8325804303569593`*^9}, {3.832580461030594*^9, 
   3.8325804766469593`*^9}, 3.832580591372081*^9, 3.8325816333865843`*^9, {
   3.832581693506543*^9, 3.83258169403688*^9}, {3.832581729792838*^9, 
   3.832581731973393*^9}, 3.8327608773441143`*^9, {3.832760912232373*^9, 
   3.832760957930429*^9}, {3.8327616436011877`*^9, 3.832761674425411*^9}, {
   3.83281481827204*^9, 3.832814824036419*^9}, {3.832814911489626*^9, 
   3.832814912218461*^9}, {3.832815028115548*^9, 3.8328150895946007`*^9}, 
   3.8328152122241592`*^9, 3.83281525241672*^9, {3.832815299537415*^9, 
   3.832815300150611*^9}, {3.8328219508123713`*^9, 3.8328219516773767`*^9}, {
   3.8328220020371017`*^9, 3.832822006343603*^9}, {3.832822042412553*^9, 
   3.832822043304326*^9}, {3.83282212518801*^9, 3.832822126103573*^9}, {
   3.832822167920742*^9, 3.832822179657393*^9}, {3.832822218391253*^9, 
   3.832822219290711*^9}, {3.832822250934577*^9, 3.832822253951581*^9}, 
   3.832822322940024*^9, {3.832822374068527*^9, 3.832822374897048*^9}, {
   3.8328224264429293`*^9, 3.8328224272685833`*^9}, {3.832822459102688*^9, 
   3.832822460137269*^9}, 3.832822508242244*^9, 3.8337133494149017`*^9, {
   3.8337133846093063`*^9, 3.833713386142579*^9}, {3.846168616840665*^9, 
   3.846168896852541*^9}, {3.846168932383956*^9, 3.8461690023694143`*^9}, {
   3.846169089428948*^9, 3.846169180556508*^9}, {3.8461692683686113`*^9, 
   3.846169350350443*^9}, {3.846169380378189*^9, 3.846169450908692*^9}, {
   3.8465644626160965`*^9, 3.8465645791262984`*^9}, {3.8465646186629257`*^9, 
   3.846564633874517*^9}, {3.846564664949559*^9, 3.8465647643150935`*^9}, {
   3.8465648836830063`*^9, 3.846564884603797*^9}, {3.846565181204013*^9, 
   3.8465652339227037`*^9}, {3.8465653002792697`*^9, 3.846565348791662*^9}, {
   3.8465653941292987`*^9, 3.846565534488723*^9}, {3.8465657634089823`*^9, 
   3.846565763831935*^9}, {3.846565817722123*^9, 3.8465658181477704`*^9}, {
   3.846565869733901*^9, 3.8465658796397505`*^9}, {3.846565922079465*^9, 
   3.846565975746462*^9}, {3.8465660412443304`*^9, 3.846566041672748*^9}, {
   3.8465660832935743`*^9, 3.846566083755465*^9}, {3.846566125150813*^9, 
   3.846566125620896*^9}, {3.8465661803508615`*^9, 3.846566181736549*^9}, {
   3.8465662246347404`*^9, 3.8465662250377464`*^9}, {3.8465662715772862`*^9, 
   3.8465662719762306`*^9}, {3.846566316131551*^9, 3.846566316542246*^9}, {
   3.846566369764449*^9, 3.846566371018426*^9}, {3.8465664146601253`*^9, 
   3.846566450868167*^9}, {3.8465664815575085`*^9, 3.846566482546114*^9}, {
   3.846566523558004*^9, 3.846566524219438*^9}, {3.846566564048211*^9, 
   3.8465665645473433`*^9}, {3.846566597287648*^9, 3.846566597731559*^9}, {
   3.846566654310875*^9, 3.8465666547324963`*^9}, {3.8465666960379333`*^9, 
   3.8465666972313366`*^9}, {3.8465667310701065`*^9, 3.846566731508182*^9}, 
   3.846566763357732*^9, {3.8465668273097878`*^9, 3.8465668564927425`*^9}, {
   3.846572142198427*^9, 3.8465721434379787`*^9}, {3.8465721954951954`*^9, 
   3.8465721959316025`*^9}, {3.8465722511116605`*^9, 3.846572251397266*^9}, {
   3.846572297723818*^9, 3.84657229810223*^9}, {3.846572344819878*^9, 
   3.8465723489396024`*^9}, {3.846572402676483*^9, 3.846572403596615*^9}, {
   3.846816887816596*^9, 3.846816907888953*^9}, {3.8468169798589993`*^9, 
   3.846816980656866*^9}, 3.8468170652502584`*^9, {3.8468171278631983`*^9, 
   3.8468171297001514`*^9}, {3.846817162308836*^9, 3.846817162677336*^9}, {
   3.846817199814546*^9, 3.846817205683964*^9}, {3.846817250389989*^9, 
   3.8468172547467213`*^9}, {3.846817317347084*^9, 3.8468173215464487`*^9}, {
   3.8468173560918417`*^9, 3.846817356498454*^9}, {3.84681741982694*^9, 
   3.8468174222333508`*^9}, {3.8468174588604684`*^9, 
   3.8468174654173975`*^9}, {3.846817497173332*^9, 3.846817497572523*^9}, {
   3.846817542156522*^9, 3.846817543737306*^9}, 3.846817613948851*^9, {
   3.846817652835613*^9, 3.8468176532845783`*^9}, {3.846817784883647*^9, 
   3.8468177896046*^9}, {3.8468178294456234`*^9, 3.8468178298116064`*^9}, {
   3.846840592748277*^9, 3.846840593469572*^9}, {3.84684072787004*^9, 
   3.8468407897975545`*^9}, {3.846840885581024*^9, 3.8468410480771875`*^9}, {
   3.846841113928362*^9, 3.846841148926806*^9}, {3.8468411953338594`*^9, 
   3.8468412622909083`*^9}, {3.846845522308096*^9, 3.8468455327493944`*^9}, {
   3.846845631440799*^9, 3.846845633055486*^9}, {3.8468457220817623`*^9, 
   3.846845722511705*^9}, {3.8468457728250885`*^9, 3.8468457732191086`*^9}, {
   3.846845825580093*^9, 3.846845830737089*^9}, {3.846845865993413*^9, 
   3.8468458663714824`*^9}, {3.846845901089572*^9, 3.846845928163545*^9}, 
   3.8468460182097683`*^9, {3.84684605586761*^9, 3.846846056274093*^9}, {
   3.8468460896448784`*^9, 3.8468460900870004`*^9}, {3.8468461218678594`*^9, 
   3.846846122263889*^9}, {3.8468461651820526`*^9, 3.8468461962369614`*^9}, {
   3.8468462277838097`*^9, 3.8468462281858234`*^9}, {3.846846277123144*^9, 
   3.846846277559677*^9}, {3.8468463084458933`*^9, 3.84684630888103*^9}, {
   3.84684634195434*^9, 3.846846342525428*^9}, {3.846846372621909*^9, 
   3.8468463731648135`*^9}, {3.8468464147153444`*^9, 3.846846417137335*^9}, {
   3.8468464492196875`*^9, 3.8468465078554893`*^9}, 3.846846545620405*^9, 
   3.8468465831183376`*^9, {3.847168350628271*^9, 3.847168356873187*^9}, {
   3.847168421581848*^9, 3.84716842325585*^9}, {3.8471684666598234`*^9, 
   3.8471684965488424`*^9}, {3.847168532728888*^9, 3.847168534785991*^9}, {
   3.8471685690342646`*^9, 3.847168569464798*^9}, 3.8471687036475515`*^9, {
   3.847168754402199*^9, 3.84716875478022*^9}, {3.847168795384446*^9, 
   3.8471687967097855`*^9}, {3.8471688552194343`*^9, 3.847168862161374*^9}, 
   3.8471818830135994`*^9, {3.847181954726035*^9, 3.8471819554131203`*^9}, {
   3.8471820020222545`*^9, 3.8471820024534235`*^9}, {3.8471820561555595`*^9, 
   3.847182056837702*^9}, {3.8471822238978186`*^9, 3.847182230085563*^9}, {
   3.84718228831876*^9, 3.847182289354521*^9}, {3.8471823419303937`*^9, 
   3.8471823422775517`*^9}, {3.8471823741229897`*^9, 
   3.8471823753188696`*^9}, {3.847182441142972*^9, 3.8471824480104837`*^9}, {
   3.847182510540641*^9, 3.847182511399679*^9}, {3.847182553783943*^9, 
   3.847182554184085*^9}, {3.8471826230179844`*^9, 3.8471826299118166`*^9}, {
   3.847182676413659*^9, 3.847182676811701*^9}, {3.8471827085581083`*^9, 
   3.847182717800353*^9}, {3.847183277543023*^9, 3.8471833042939157`*^9}, {
   3.847183364775496*^9, 3.847183368420535*^9}, {3.8471857555482073`*^9, 
   3.847185759849716*^9}, {3.8471857988380156`*^9, 3.847185799498404*^9}, {
   3.8471862464220467`*^9, 3.847186247308177*^9}, {3.8471862990537233`*^9, 
   3.8471863005417523`*^9}, {3.847186349199266*^9, 3.8471863537260284`*^9}, {
   3.8471863997277765`*^9, 3.8471864028614235`*^9}, {3.847187199011094*^9, 
   3.847187208704338*^9}, {3.847187358284011*^9, 3.847187360383865*^9}, {
   3.8471878345448847`*^9, 3.8471878374724317`*^9}, {3.8471878934430323`*^9, 
   3.847187901599221*^9}, {3.847187988945199*^9, 3.8471879894877634`*^9}, {
   3.8471880239050446`*^9, 3.847188024367765*^9}, {3.847188066721484*^9, 
   3.8471880671798053`*^9}, {3.847787549012091*^9, 3.847787583563673*^9}, {
   3.8477882007878876`*^9, 3.8477882012808805`*^9}, {3.8477882440789742`*^9, 
   3.8477882444779377`*^9}, {3.8477883297240467`*^9, 3.847788330079031*^9}, {
   3.8477883669558277`*^9, 3.847788369282047*^9}, {3.8477884125800653`*^9, 
   3.8477884129741087`*^9}, 3.8477884774711094`*^9, {3.847788528223155*^9, 
   3.8477885320155935`*^9}, {3.847788576734928*^9, 3.847788577246089*^9}, 
   3.8477886259991083`*^9, {3.847788670326703*^9, 3.8477886728459463`*^9}, {
   3.8477887164351254`*^9, 3.847788716818091*^9}, {3.847788759446004*^9, 
   3.847788760119931*^9}, 3.847789188269428*^9, {3.847789228093193*^9, 
   3.847789228572428*^9}, 3.847789370379602*^9, {3.8477894099547787`*^9, 
   3.847789410397631*^9}, {3.8477974737620935`*^9, 3.8477974775854053`*^9}, {
   3.850108910072337*^9, 3.850108917914495*^9}, {3.850109008579508*^9, 
   3.850109017311672*^9}, 3.850111473800208*^9, 3.850111680344401*^9, {
   3.8501118809059267`*^9, 3.8501119008645887`*^9}, {3.884966040632831*^9, 
   3.8849660428247194`*^9}},ExpressionUUID->"5e82fa54-7545-4535-ab2e-\
76ca3d293de0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Xbars", "=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{"xs", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Ttildes"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "Print", "[", 
   "\"\<*****************************************************************\>\"\
", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "Print", "[", 
   "\"\<*********************** Large carbon tax case \
************************\>\"", "]"}], ";", 
  RowBox[{
  "Print", "[", 
   "\"\<************************* report of results *************************\
\>\"", "]"}], ";", 
  RowBox[{
  "Print", "[", 
   "\"\<*****************************************************************\>\"\
", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\"\<X =   \>\"", ",", "Xbars", ",", "\"\<, that is \>\"", ",", 
     RowBox[{"100", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Xbars", "/", "Xbar"}], "-", "1"}], ")"}]}], ",", 
     "\"\<% away from target\>\""}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<T0 =\>\"", ",", "T0s"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\<Tx =\>\"", ",", "Ttildes", ",", 
    "\"\< to be compared to the optimum Tx=\>\"", ",", "TXo"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"Ttildes", "<", "T0s"}], ",", 
    RowBox[{
    "Print", "[", 
     "\"\<!!! T0<Ttilde is not coherent with the large tax case\>\"", "]"}]}],
    "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<\[Zeta]10 =  \>\"", ",", 
    RowBox[{
     RowBox[{"\[Zeta]1fs", "[", "0", "]"}], "/", "\[Kappa]"}], ",", 
    "\"\<, for the large tax case we should have \[Tau]tilde=\>\"", ",", " ", 
    RowBox[{"\[Tau]tilde", "/", "\[Kappa]"}], ",", "\"\<>\[Zeta]1(0)=\>\"", 
    ",", 
    RowBox[{
     RowBox[{"\[Zeta]1fs", "[", "0", "]"}], "/", "\[Kappa]"}]}], "]"}], ";", 
  RowBox[{
   RowBox[{"\[Sigma]LbDs", "[", "t_", "]"}], "=", 
   RowBox[{"\[Beta]", " ", "c1", " ", 
    SuperscriptBox[
     RowBox[{"Yfs", "[", "t", "]"}], 
     RowBox[{
      RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Mu]fs", "[", "t", "]"}], "-", 
       RowBox[{"c1", " ", 
        SuperscriptBox[
         RowBox[{"Yfs", "[", "t", "]"}], 
         RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"\[Phi]", " ", "c2"}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[Sigma]Cvs", "[", "t_", "]"}], "=", 
    RowBox[{
     RowBox[{"\[Zeta]1fs", "[", "t", "]"}], "-", "\[Tau]tilde"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tfigs", "=", "Tends"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g\[Lambda]s", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Zeta]1fs", "[", "t", "]"}], "/", "\[Kappa]"}], ",", 
       RowBox[{"\[Tau]tilde", "/", "\[Kappa]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Ttildes"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{
       "t", ",", 
        "\"\<\[Tau]\[Degree](t),\!\(\*SubscriptBox[OverscriptBox[\(\[Zeta]\), \
\(~\)], \(1\)]\)(t),\!\(\*OverscriptBox[\(\[Tau]\), \(~\)]\)\>\""}], "}"}]}], 
     ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dashed"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"val\[Lambda]s", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{
        RowBox[{"\[Zeta]1fs", "[", "t", "]"}], "/", "\[Kappa]"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Ttildes", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gys", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Yfs", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigs"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<Y(t)\>\""}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "100"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", "Dashed"}], "}"}], "}"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"Ttildes", ",", 
           RowBox[{"{", 
            RowBox[{"Gray", ",", "Dotted"}], "}"}]}], "}"}], "}"}], ",", 
        RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"valYs", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"Yfs", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigs", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g\[Mu]s", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"\[Mu]fs", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigs"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{
       "t", ",", 
        "\"\<\[Mu](t),\!\(\*SubscriptBox[\(\[Mu]\), \(d\)]\)(t)\>\""}], 
       "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", "Dashed"}], "}"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"val\[Mu]s", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"\[Mu]fs", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigs", ",", "0.5"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g\[Sigma]s", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Sigma]s", "[", "t", "]"}], ",", 
       RowBox[{"\[Sigma]LbDs", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigs"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<\[Sigma](t),\[CapitalSigma](t)\>\""}], "}"}]}], 
     ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"Dashing", "[", "Small", "]"}], ",", 
          RowBox[{"Opacity", "[", "0.5", "]"}]}], "}"}]}], "}"}]}]}], "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"val\[Sigma]Cvs", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"\[Sigma]Cvs", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Ttildes", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"val\[Sigma]LbDs", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"\[Sigma]LbDs", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigs", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gxs", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"xs", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Ttildes"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<x(t)\>\""}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Dashed"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"valxs", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"xs", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Ttildes", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ges", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"es", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigs"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<e(t)\>\""}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1000"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Dashed"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vales", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"es", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigs", ",", "0.5"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gps", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Gamma]", " ", 
        SuperscriptBox[
         RowBox[{"es", "[", "t", "]"}], 
         RowBox[{
          RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}], ",", 
       RowBox[{"\[Gamma]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Phi]", " ", "Ystar"}], ")"}], 
         RowBox[{
          RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigs"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<p(t)\>\""}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Dotted", ",", "Gray", ",", 
          RowBox[{"Opacity", "[", "0.5", "]"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"valps", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"\[Gamma]", " ", 
        SuperscriptBox[
         RowBox[{"es", "[", "t", "]"}], 
         RowBox[{
          RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigs", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"g\[Lambda]O", ",", "g\[Lambda]s"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "g\[Sigma]s", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"gyO", ",", "gys"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"g\[Mu]O", ",", "g\[Mu]s"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"gxO", ",", "gxs"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"geO", ",", "ges"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"gpO", ",", "gps"}], "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.826697519672256*^9, 3.826697580027843*^9}, {
   3.826697652352769*^9, 3.8266977554561663`*^9}, {3.8266978504549828`*^9, 
   3.8266980625810966`*^9}, {3.826698118584816*^9, 3.82669813683633*^9}, {
   3.82671708533427*^9, 3.82671711297655*^9}, {3.826717195616568*^9, 
   3.8267172879058332`*^9}, {3.8267173280925407`*^9, 3.826717333641568*^9}, {
   3.826717522821595*^9, 3.826717570299461*^9}, {3.826717680880262*^9, 
   3.826717744163055*^9}, {3.8267701655635223`*^9, 3.8267701859289627`*^9}, 
   3.8267827128347197`*^9, {3.8267828066452017`*^9, 3.82678282296761*^9}, {
   3.826783014197393*^9, 3.8267830193821793`*^9}, {3.826783053053761*^9, 
   3.8267831904013863`*^9}, {3.826783283921215*^9, 3.826783353695147*^9}, {
   3.826783398939056*^9, 3.826783468595071*^9}, {3.8267839748795967`*^9, 
   3.826784025944957*^9}, {3.826784076268982*^9, 3.826784099613714*^9}, {
   3.826802617136519*^9, 3.8268026181797743`*^9}, {3.826802651897314*^9, 
   3.82680267122538*^9}, {3.826802722431972*^9, 3.826802767546453*^9}, {
   3.826802800603544*^9, 3.826802830739423*^9}, {3.826802862078915*^9, 
   3.8268028915248327`*^9}, {3.8268029217129583`*^9, 3.826802922935287*^9}, {
   3.8325799020902243`*^9, 3.83257991082253*^9}, {3.83258017566625*^9, 
   3.832580177208193*^9}, {3.832580226339326*^9, 3.832580227036541*^9}, {
   3.832580278582456*^9, 3.8325804303569593`*^9}, {3.832580461030594*^9, 
   3.8325804766469593`*^9}, 3.832580591372081*^9, 3.8325816333865843`*^9, {
   3.832581693506543*^9, 3.83258169403688*^9}, {3.832581729792838*^9, 
   3.832581731973393*^9}, 3.8327608773441143`*^9, {3.832760912232373*^9, 
   3.832760957930429*^9}, {3.8327616436011877`*^9, 3.832761674425411*^9}, {
   3.83281481827204*^9, 3.832814824036419*^9}, {3.832814911489626*^9, 
   3.832814912218461*^9}, {3.832815028115548*^9, 3.8328150895946007`*^9}, 
   3.8328152122241592`*^9, 3.83281525241672*^9, {3.832815299537415*^9, 
   3.832815300150611*^9}, {3.8328219508123713`*^9, 3.8328219516773767`*^9}, {
   3.8328220020371017`*^9, 3.832822006343603*^9}, {3.832822042412553*^9, 
   3.832822043304326*^9}, {3.83282212518801*^9, 3.832822126103573*^9}, {
   3.832822167920742*^9, 3.832822179657393*^9}, {3.832822218391253*^9, 
   3.832822219290711*^9}, {3.832822250934577*^9, 3.832822253951581*^9}, 
   3.832822322940024*^9, {3.832822374068527*^9, 3.832822374897048*^9}, {
   3.8328224264429293`*^9, 3.8328224272685833`*^9}, {3.832822459102688*^9, 
   3.832822460137269*^9}, 3.832822508242244*^9, 3.8337133494149017`*^9, {
   3.8337133846093063`*^9, 3.833713386142579*^9}, {3.846168616840665*^9, 
   3.846168896852541*^9}, {3.846168932383956*^9, 3.8461690023694143`*^9}, {
   3.846169089428948*^9, 3.846169180556508*^9}, {3.8461692683686113`*^9, 
   3.846169350350443*^9}, {3.846169380378189*^9, 3.846169450908692*^9}, {
   3.8465644626160965`*^9, 3.8465645791262984`*^9}, {3.8465646186629257`*^9, 
   3.846564633874517*^9}, {3.846564664949559*^9, 3.8465647643150935`*^9}, {
   3.8465648836830063`*^9, 3.846564884603797*^9}, {3.846565181204013*^9, 
   3.8465652339227037`*^9}, {3.8465653002792697`*^9, 3.846565348791662*^9}, {
   3.8465653941292987`*^9, 3.846565534488723*^9}, {3.8465657634089823`*^9, 
   3.846565763831935*^9}, {3.846565817722123*^9, 3.8465658181477704`*^9}, {
   3.846565869733901*^9, 3.8465658796397505`*^9}, {3.846565922079465*^9, 
   3.846565975746462*^9}, {3.8465660412443304`*^9, 3.846566041672748*^9}, {
   3.8465660832935743`*^9, 3.846566083755465*^9}, {3.846566125150813*^9, 
   3.846566125620896*^9}, {3.8465661803508615`*^9, 3.846566181736549*^9}, {
   3.8465662246347404`*^9, 3.8465662250377464`*^9}, {3.8465662715772862`*^9, 
   3.8465662719762306`*^9}, {3.846566316131551*^9, 3.846566316542246*^9}, {
   3.846566369764449*^9, 3.846566371018426*^9}, {3.8465664146601253`*^9, 
   3.846566450868167*^9}, {3.8465664815575085`*^9, 3.846566482546114*^9}, {
   3.846566523558004*^9, 3.846566524219438*^9}, {3.846566564048211*^9, 
   3.8465665645473433`*^9}, {3.846566597287648*^9, 3.846566597731559*^9}, {
   3.846566654310875*^9, 3.8465666547324963`*^9}, {3.8465666960379333`*^9, 
   3.8465666972313366`*^9}, {3.8465667310701065`*^9, 3.846566731508182*^9}, 
   3.846566763357732*^9, {3.8465668273097878`*^9, 3.8465668564927425`*^9}, {
   3.846572142198427*^9, 3.8465721434379787`*^9}, {3.8465721954951954`*^9, 
   3.8465721959316025`*^9}, {3.8465722511116605`*^9, 3.846572251397266*^9}, {
   3.846572297723818*^9, 3.84657229810223*^9}, {3.846572344819878*^9, 
   3.8465723489396024`*^9}, {3.846572402676483*^9, 3.846572403596615*^9}, {
   3.846816887816596*^9, 3.846816907888953*^9}, {3.8468169798589993`*^9, 
   3.846816980656866*^9}, 3.8468170652502584`*^9, {3.8468171278631983`*^9, 
   3.8468171297001514`*^9}, {3.846817162308836*^9, 3.846817162677336*^9}, {
   3.846817199814546*^9, 3.846817205683964*^9}, {3.846817250389989*^9, 
   3.8468172547467213`*^9}, {3.846817317347084*^9, 3.8468173215464487`*^9}, {
   3.8468173560918417`*^9, 3.846817356498454*^9}, {3.84681741982694*^9, 
   3.8468174222333508`*^9}, {3.8468174588604684`*^9, 
   3.8468174654173975`*^9}, {3.846817497173332*^9, 3.846817497572523*^9}, {
   3.846817542156522*^9, 3.846817543737306*^9}, 3.846817613948851*^9, {
   3.846817652835613*^9, 3.8468176532845783`*^9}, {3.846817784883647*^9, 
   3.8468177896046*^9}, {3.8468178294456234`*^9, 3.8468178298116064`*^9}, {
   3.846840592748277*^9, 3.846840593469572*^9}, {3.84684072787004*^9, 
   3.8468407897975545`*^9}, {3.846840885581024*^9, 3.8468410480771875`*^9}, {
   3.846841113928362*^9, 3.846841148926806*^9}, {3.8468411953338594`*^9, 
   3.8468412622909083`*^9}, {3.846845522308096*^9, 3.8468455327493944`*^9}, {
   3.846845631440799*^9, 3.846845633055486*^9}, {3.8468457220817623`*^9, 
   3.846845722511705*^9}, {3.8468457728250885`*^9, 3.8468457732191086`*^9}, {
   3.846845825580093*^9, 3.846845830737089*^9}, {3.846845865993413*^9, 
   3.8468458663714824`*^9}, {3.846845901089572*^9, 3.846845928163545*^9}, 
   3.8468460182097683`*^9, {3.84684605586761*^9, 3.846846056274093*^9}, {
   3.8468460896448784`*^9, 3.8468460900870004`*^9}, {3.8468461218678594`*^9, 
   3.846846122263889*^9}, {3.8468461651820526`*^9, 3.8468461962369614`*^9}, {
   3.8468462277838097`*^9, 3.8468462281858234`*^9}, {3.846846277123144*^9, 
   3.846846277559677*^9}, {3.8468463084458933`*^9, 3.84684630888103*^9}, {
   3.84684634195434*^9, 3.846846342525428*^9}, {3.846846372621909*^9, 
   3.8468463731648135`*^9}, {3.8468464147153444`*^9, 3.846846417137335*^9}, {
   3.8468464492196875`*^9, 3.8468465078554893`*^9}, 3.846846545620405*^9, 
   3.8468465831183376`*^9, {3.847168350628271*^9, 3.847168356873187*^9}, {
   3.847168421581848*^9, 3.84716842325585*^9}, {3.8471684666598234`*^9, 
   3.8471684965488424`*^9}, {3.847168532728888*^9, 3.847168534785991*^9}, {
   3.8471685690342646`*^9, 3.847168569464798*^9}, 3.8471687036475515`*^9, {
   3.847168754402199*^9, 3.84716875478022*^9}, {3.847168795384446*^9, 
   3.8471687967097855`*^9}, {3.8471688552194343`*^9, 3.847168862161374*^9}, 
   3.8471818830135994`*^9, {3.847181954726035*^9, 3.8471819554131203`*^9}, {
   3.8471820020222545`*^9, 3.8471820024534235`*^9}, {3.8471820561555595`*^9, 
   3.847182056837702*^9}, {3.8471822238978186`*^9, 3.847182230085563*^9}, {
   3.84718228831876*^9, 3.847182289354521*^9}, {3.8471823419303937`*^9, 
   3.8471823422775517`*^9}, {3.8471823741229897`*^9, 
   3.8471823753188696`*^9}, {3.847182441142972*^9, 3.8471824480104837`*^9}, {
   3.847182510540641*^9, 3.847182511399679*^9}, {3.847182553783943*^9, 
   3.847182554184085*^9}, {3.8471826230179844`*^9, 3.8471826299118166`*^9}, {
   3.847182676413659*^9, 3.847182676811701*^9}, {3.8471827085581083`*^9, 
   3.847182717800353*^9}, {3.847183277543023*^9, 3.8471833042939157`*^9}, {
   3.847183364775496*^9, 3.847183368420535*^9}, {3.8471857555482073`*^9, 
   3.847185759849716*^9}, {3.8471857988380156`*^9, 3.847185799498404*^9}, {
   3.8471862464220467`*^9, 3.847186247308177*^9}, {3.8471862990537233`*^9, 
   3.8471863005417523`*^9}, {3.847186349199266*^9, 3.8471863537260284`*^9}, {
   3.8471863997277765`*^9, 3.8471864028614235`*^9}, {3.847187199011094*^9, 
   3.847187208704338*^9}, {3.847187358284011*^9, 3.847187360383865*^9}, {
   3.8471878345448847`*^9, 3.8471878374724317`*^9}, {3.8471878934430323`*^9, 
   3.847187901599221*^9}, {3.847187988945199*^9, 3.8471879894877634`*^9}, {
   3.8471880239050446`*^9, 3.847188024367765*^9}, {3.847188066721484*^9, 
   3.8471880671798053`*^9}, {3.847787549012091*^9, 3.847787583563673*^9}, {
   3.8477882007878876`*^9, 3.8477882012808805`*^9}, {3.8477882440789742`*^9, 
   3.8477882444779377`*^9}, {3.8477883297240467`*^9, 3.847788330079031*^9}, {
   3.8477883669558277`*^9, 3.847788369282047*^9}, {3.8477884125800653`*^9, 
   3.8477884129741087`*^9}, 3.8477884774711094`*^9, {3.847788528223155*^9, 
   3.8477885320155935`*^9}, {3.847788576734928*^9, 3.847788577246089*^9}, 
   3.8477886259991083`*^9, {3.847788670326703*^9, 3.8477886728459463`*^9}, {
   3.8477887164351254`*^9, 3.847788716818091*^9}, {3.847788759446004*^9, 
   3.847788760119931*^9}, 3.847789188269428*^9, {3.847789228093193*^9, 
   3.847789228572428*^9}, 3.847789370379602*^9, {3.8477894099547787`*^9, 
   3.847789410397631*^9}, {3.8477974737620935`*^9, 3.8477974775854053`*^9}, {
   3.850108910072337*^9, 3.850108917914495*^9}, {3.850109008579508*^9, 
   3.850109017311672*^9}, 3.850111473800208*^9, 3.850111680344401*^9, {
   3.8501118809059267`*^9, 3.850111892721684*^9}, {3.85011206186167*^9, 
   3.8501120950378227`*^9}, {3.850112139128111*^9, 3.850112269788451*^9}, {
   3.8501163155589952`*^9, 3.850116316402047*^9}, {3.850129569562481*^9, 
   3.8501295932269917`*^9}, {3.850216660119911*^9, 3.850216663939384*^9}, {
   3.850714123211426*^9, 3.8507141500345707`*^9}, {3.850790674675222*^9, 
   3.85079074865422*^9}, {3.850791196270872*^9, 3.850791237494335*^9}, {
   3.850791446343178*^9, 3.850791450853401*^9}, {3.850793833727522*^9, 
   3.850793834788402*^9}, {3.851315312338835*^9, 3.851315319454639*^9}, {
   3.851752681649499*^9, 3.8517526897305393`*^9}, {3.853846105740738*^9, 
   3.853846116082285*^9}, {3.862319980825316*^9, 3.862320040747221*^9}, {
   3.862453082805438*^9, 3.86245308620443*^9}, {3.862453225887341*^9, 
   3.86245324081139*^9}, {3.862540807347591*^9, 3.862540827924082*^9}, {
   3.862558364741997*^9, 3.862558365903014*^9}, {3.86255980862036*^9, 
   3.862559813620273*^9}, {3.862559991929584*^9, 3.8625599970422487`*^9}, {
   3.862560197133874*^9, 3.862560201330327*^9}, 3.879687794185607*^9, {
   3.8836424047482643`*^9, 3.8836424482555637`*^9}, {3.8871282895502353`*^9, 
   3.8871282923171644`*^9}, {3.8871297263386445`*^9, 
   3.8871297510827336`*^9}, {3.8873420331315155`*^9, 3.887342080101152*^9}, {
   3.887342199560438*^9, 3.8873422841837482`*^9}, {3.8873425478561263`*^9, 
   3.887342552538624*^9}, {3.8873473417556486`*^9, 3.8873473526533704`*^9}, {
   3.887347627602254*^9, 3.8873477358666306`*^9}, {3.887347774701367*^9, 
   3.8873477883269243`*^9}, {3.8873478239287567`*^9, 3.8873478808350677`*^9}, 
   3.8873480007180815`*^9, {3.8873480541462517`*^9, 3.887348185712938*^9}, {
   3.8873482191140404`*^9, 3.887348220674993*^9}, {3.887348387597322*^9, 
   3.8873483967645583`*^9}, 3.8873497642720957`*^9, {3.8873546517723045`*^9, 
   3.8873546615851145`*^9}, {3.8907977982946672`*^9, 3.890797880923347*^9}, {
   3.890798281139719*^9, 3.890798287499485*^9}, {3.890799270294898*^9, 
   3.890799276694804*^9}, {3.890809459997972*^9, 3.890809464592353*^9}, {
   3.890809716317403*^9, 3.890809732195107*^9}, {3.890811411063469*^9, 
   3.890811478400009*^9}, {3.8908158440504313`*^9, 3.890815845382812*^9}, {
   3.896323045603875*^9, 3.89632307935303*^9}, {3.896342880240427*^9, 
   3.896342965852499*^9}, {3.909906661741016*^9, 3.909906672971208*^9}, {
   3.912084916824995*^9, 3.912084931021347*^9}, 3.9120849862742133`*^9, {
   3.9120850229555235`*^9, 3.91208508460502*^9}, {3.912085150245002*^9, 
   3.9120851918774953`*^9}, 3.912085321699445*^9, {3.912087106100916*^9, 
   3.9120871157215357`*^9}, 3.9120871651650143`*^9, {3.912087276296533*^9, 
   3.9120873011433983`*^9}, {3.9149201745422688`*^9, 3.91492017557549*^9}, {
   3.914920317516576*^9, 3.914920322497617*^9}, 3.920889935950201*^9, {
   3.9208900175092916`*^9, 3.920890048190412*^9}, {3.9430084566960278`*^9, 
   3.943008469351074*^9}, {3.9430720791049023`*^9, 3.94307209122648*^9}, {
   3.943088947212861*^9, 3.94308894820428*^9}, {3.943089186749997*^9, 
   3.943089214757037*^9}, {3.943089354332889*^9, 3.9430893613100433`*^9}, {
   3.9431061730729103`*^9, 3.943106379318128*^9}, {3.9431065326326313`*^9, 
   3.9431065369327393`*^9}, {3.943108992138*^9, 3.943108993147612*^9}, {
   3.9431096757468977`*^9, 3.943109677015416*^9}, {3.943110164721171*^9, 
   3.943110165416947*^9}, {3.943172025050535*^9, 3.943172090076579*^9}, {
   3.943326509751069*^9, 3.943326558387965*^9}, {3.943326619683598*^9, 
   3.9433266242039747`*^9}, {3.9433291793651648`*^9, 3.94332918159979*^9}, {
   3.943329942384862*^9, 3.9433299445722523`*^9}, {3.9608829200331783`*^9, 
   3.9608829201017866`*^9}, {3.961063405466444*^9, 3.961063546947483*^9}, {
   3.9610636611136403`*^9, 3.961063780282447*^9}, {3.9610644337995415`*^9, 
   3.9610644348218346`*^9}, 3.9610644978961935`*^9, 3.9610645979086094`*^9, {
   3.9610851376559095`*^9, 3.961085138342125*^9}, {3.9610852249661303`*^9, 
   3.961085238008835*^9}},
 CellLabel->
  "In[106]:=",ExpressionUUID->"3fff458c-5709-4586-a664-6554ec351355"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"subs", "[", "t_", "]"}], "=", 
     RowBox[{
      RowBox[{"\[Sigma]s", "[", "t", "]"}], " ", "\[Phi]", " ", 
      RowBox[{"Yfs", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"taxs", "[", "t_", "]"}], "=", 
     RowBox[{"\[Tau]tilde", "  ", 
      RowBox[{"Piecewise", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"xs", "[", "t", "]"}], ",", 
           RowBox[{"t", "<", "Ttildes"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"t", "\[GreaterEqual]", "Ttildes"}]}], "}"}]}], "}"}], 
       "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"glss", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"taxs", "[", "t", "]"}], "-", 
        RowBox[{"subs", "[", "t", "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "Tfigs"}], "}"}], ",", " ", 
       RowBox[{"AxesLabel", "->", 
        RowBox[{"{", 
         RowBox[{"t", ",", "\"\<lump sum transfer\>\""}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
       RowBox[{"AxesOrigin", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dotted"}], "}"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"budgs", "=", 
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"taxs", "[", "t", "]"}], "-", 
          RowBox[{"subs", "[", "t", "]"}]}], ")"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "Ttildes"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"evals", "=", 
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], " ", "\[Gamma]", " ", 
        SuperscriptBox[
         RowBox[{"es", "[", "t", "]"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"1", "/", "\[Epsilon]"}]}], ")"}]]}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "Ttildes"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{
     "\"\<Cost of acceptability in terms of public finance: budg/eval =\>\"", 
      ",", " ", 
      RowBox[{"budgs", "/", "evals"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Invs", "[", "t_", "]"}], "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Mu]fs", "[", "t", "]"}], "-", 
        RowBox[{"c1", " ", 
         SuperscriptBox[
          RowBox[{"Yfs", "[", "t", "]"}], 
          RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Ws", "=", 
     RowBox[{
      RowBox[{"NIntegrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"\[Gamma]", " ", 
             SuperscriptBox[
              RowBox[{"es", "[", "t", "]"}], 
              RowBox[{"1", "-", 
               RowBox[{"1", "/", "\[Epsilon]"}]}]]}], 
            RowBox[{"1", "-", 
             RowBox[{"1", "/", "\[Epsilon]"}]}]], "-", 
           RowBox[{"c1", " ", 
            SuperscriptBox[
             RowBox[{"Yfs", "[", "t", "]"}], 
             RowBox[{"-", "\[Beta]"}]], "  ", 
            RowBox[{"Invs", "[", "t", "]"}]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"c2", "/", "2"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"Invs", "[", "t", "]"}], "2"]}]}], ")"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "0", ",", "Tfigs"}], "}"}]}], "]"}], "-", 
      RowBox[{"cx", " ", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{
            RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], "  ", 
          RowBox[{"xs", "[", "t", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "Ttildes"}], "}"}]}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"\[Gamma]", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Phi]", " ", "Ystar"}], ")"}], 
            RowBox[{"1", "-", 
             RowBox[{"1", "/", "\[Epsilon]"}]}]]}], 
          RowBox[{"1", "-", 
           RowBox[{"1", "/", "\[Epsilon]"}]}]], "-", 
         RowBox[{"c1", " ", "\[Delta]", " ", 
          SuperscriptBox["Ystar", 
           RowBox[{"1", "-", "\[Beta]"}]]}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"c2", "/", "2"}], ")"}], " ", 
          SuperscriptBox["\[Delta]", "2"], "  ", 
          SuperscriptBox["Ystar", "2"]}]}], ")"}], "  ", 
       FractionBox[
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", "\[Rho]"}], " ", 
          RowBox[{"(", "Tfigs", ")"}]}], "]"}], "\[Rho]"]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Wse", "=", 
     RowBox[{
      RowBox[{"NIntegrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], " ", 
         FractionBox[
          RowBox[{"\[Gamma]", " ", 
           SuperscriptBox[
            RowBox[{"es", "[", "t", "]"}], 
            RowBox[{"1", "-", 
             RowBox[{"1", "/", "\[Epsilon]"}]}]]}], 
          RowBox[{"1", "-", 
           RowBox[{"1", "/", "\[Epsilon]"}]}]]}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "0", ",", "Tfigs"}], "}"}]}], "]"}], "+", 
      RowBox[{
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[Gamma]", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Phi]", " ", "Ystar"}], ")"}], 
           RowBox[{"1", "-", 
            RowBox[{"1", "/", "\[Epsilon]"}]}]]}], 
         RowBox[{"1", "-", 
          RowBox[{"1", "/", "\[Epsilon]"}]}]], ")"}], "  ", 
       FractionBox[
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", "\[Rho]"}], " ", 
          RowBox[{"(", "Tfigs", ")"}]}], "]"}], "\[Rho]"]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ccs", "=", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"WO", "-", "Ws"}], "Wse"]}], ")"}], 
       FractionBox["1", 
        RowBox[{"1", "-", 
         FractionBox["1", "\[Epsilon]"]}]]], "-", "1"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{
     "\"\<Welfare cost of acceptability: ws = \>\"", ",", " ", "ccs"}], "]"}],
     ";"}]}]}]], "Input",
 CellChangeTimes->{{3.826771975154039*^9, 3.826772015151587*^9}, {
   3.832580049557805*^9, 3.832580065595121*^9}, {3.832580849017107*^9, 
   3.832580875207255*^9}, {3.832581608806727*^9, 3.832581611244207*^9}, {
   3.832587345148134*^9, 3.832587355543338*^9}, {3.8325874508288593`*^9, 
   3.832587458816164*^9}, {3.8325875219550734`*^9, 3.832587525388681*^9}, {
   3.832759636299856*^9, 3.832759827596208*^9}, {3.832759881697723*^9, 
   3.832759886569482*^9}, {3.832760995055678*^9, 3.832761085288685*^9}, {
   3.832815174606763*^9, 3.832815177053817*^9}, {3.8471870657000523`*^9, 
   3.84718708498633*^9}, {3.847188260601553*^9, 3.8471882693709984`*^9}, {
   3.847189938039563*^9, 3.847189985360891*^9}, {3.847787820846651*^9, 
   3.847787943071788*^9}, {3.8477892713404894`*^9, 3.8477892727785206`*^9}, {
   3.847789329166561*^9, 3.8477893296935635`*^9}, 3.847797461488059*^9, {
   3.849864633493187*^9, 3.849864670100956*^9}, {3.8498650500151587`*^9, 
   3.849865069175974*^9}, {3.850037602022036*^9, 3.850037675636114*^9}, {
   3.85011227481717*^9, 3.85011238221472*^9}, {3.850112457289551*^9, 
   3.850112482272141*^9}, {3.850133123461679*^9, 3.850133185571981*^9}, {
   3.850216693250845*^9, 3.850216699513904*^9}, {3.85131532958994*^9, 
   3.8513153366843767`*^9}, {3.851752692099424*^9, 3.85175270494862*^9}, {
   3.851752813813327*^9, 3.8517528148564577`*^9}, {3.853846242332445*^9, 
   3.853846242970036*^9}, {3.862320063470931*^9, 3.862320111634677*^9}, {
   3.8623201621136227`*^9, 3.862320168727745*^9}, {3.862320794323825*^9, 
   3.8623208245395*^9}, {3.8623839026326103`*^9, 3.862383904760499*^9}, {
   3.8624532528487663`*^9, 3.862453257796309*^9}, {3.862540838610557*^9, 
   3.862540840261096*^9}, {3.862541332581094*^9, 3.862541339943142*^9}, {
   3.86325340187029*^9, 3.863253522997402*^9}, {3.8633308835221157`*^9, 
   3.863330979601386*^9}, 3.8871297659356823`*^9, {3.89079711185077*^9, 
   3.890797128015368*^9}, 3.8963230984885063`*^9, {3.8963231416750107`*^9, 
   3.8963231491785297`*^9}, {3.8963284928351183`*^9, 3.896328555608761*^9}, {
   3.896328598695668*^9, 3.8963286015699863`*^9}, {3.896339292505558*^9, 
   3.896339304597077*^9}, {3.896343283181782*^9, 3.896343359436338*^9}, {
   3.896343821769092*^9, 3.896343832233563*^9}, {3.91208525837904*^9, 
   3.9120852589110847`*^9}, {3.9120853351519012`*^9, 3.912085343896117*^9}, 
   3.912085394904039*^9, {3.9120854521996193`*^9, 3.9120854712809525`*^9}, {
   3.912085544295422*^9, 3.912085545328193*^9}, {3.914667560214773*^9, 
   3.914667566543912*^9}, {3.9146676059612646`*^9, 3.9146676183021517`*^9}, {
   3.9146676609301996`*^9, 3.9146676852729425`*^9}, {3.961064008689991*^9, 
   3.9610641243608446`*^9}, {3.9610647148989897`*^9, 
   3.9610647160348053`*^9}, {3.9610647791025295`*^9, 3.96106481540327*^9}, 
   3.9610814118996625`*^9, 3.9610871519885993`*^9},
 CellLabel->
  "In[138]:=",ExpressionUUID->"9653215e-ed38-4e06-91bf-2ed7a83a714a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["4. Small constant carbon tax, temporary FIP", \
"Section"]], "Chapter",
 CellChangeTimes->{{3.826697519672256*^9, 3.826697580027843*^9}, {
   3.826697652352769*^9, 3.8266977056371593`*^9}, {3.826697743247591*^9, 
   3.826697749730509*^9}, {3.82671702579667*^9, 3.826717026208395*^9}, 
   3.826717107644614*^9, {3.8267827733236313`*^9, 3.826782786175125*^9}, {
   3.8325797823387012`*^9, 3.83257979800218*^9}, {3.832579858645071*^9, 
   3.832579870425434*^9}, {3.846169221222629*^9, 3.8461692408364487`*^9}, {
   3.847774261881194*^9, 3.8477742681000414`*^9}, {3.849864450962586*^9, 
   3.8498644716220903`*^9}, {3.8622235705556*^9, 3.862223571349064*^9}, {
   3.862223837321191*^9, 3.86222383831606*^9}, {3.8849660073651533`*^9, 
   3.8849660080834293`*^9}, {3.960882202417699*^9, 3.9608822062891846`*^9}, {
   3.9610659012252707`*^9, 3.9610659162676454`*^9}, {3.96108708055077*^9, 
   3.9610870876765223`*^9}},ExpressionUUID->"ad214ad1-2864-4aa6-8a8b-\
34005a022a8d"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Clear", "[", 
     RowBox[{
     "horizonguessS", ",", "stepS", ",", "horizonLboundS", ",", 
      "horizonUboundS", ",", "\[Zeta]1LboundS\[Tau]", ",", 
      "\[Zeta]1UboundS\[Tau]", ",", "nS", ",", "nbiterS", ",", "carbonpriceS",
       ",", "\[Tau]tilde", ",", "horizonguess", ",", "horizonLbound", ",", 
      "horizonUbound", ",", "Y", ",", "\[Mu]", ",", "tmax", ",", "deY", ",", 
      "de\[Mu]", ",", "sol", ",", "Yb", ",", "\[Mu]b", ",", "Yf", ",", 
      "\[Mu]f", ",", "x", ",", "\[Sigma]", ",", "ttilde", ",", "Ttilde", ",", 
      "\[Zeta]1", ",", "\[Zeta]10", ",", "\[Tau]tilde", ",", "horizonguess", 
      ",", "horizonLbound", ",", "horizonUbound", ",", "\[Zeta]1Lbound", ",", 
      "\[Zeta]1Hbound", ",", "step", ",", "n", ",", "nbiter", ",", "resol3", 
      ",", "\[Mu]dotSB1", ",", "\[Mu]dotSB2", ",", "YdotSB12", ",", "deY", 
      ",", "de\[Zeta]1", ",", "de\[Mu]", ",", "sol", ",", "ttilde", ",", 
      "tmax", ",", "Ttilde", ",", "Yb", ",", "\[Mu]b", ",", "\[Zeta]1b", ",", 
      "Yf", ",", "\[Mu]f", ",", "\[Zeta]1f", ",", "\[Sigma]", ",", "x", ",", 
      "X", ",", "e", ",", "Tendokr", ",", "\[Mu]dotR1", ",", "\[Mu]dotR2", 
      ",", "YdotR12", ",", "de\[Lambda]", ",", "TX", ",", "flagTend", ",", 
      "resol5", ",", "Tend", ",", "\[Zeta]1grid", ",", "\[Zeta]1low", ",", 
      "\[Zeta]1high", ",", "\[Zeta]10star", ",", "iterRer", ",", "Xbarr", ",",
       "\[Mu]fr", ",", "Yfr", ",", "\[Zeta]1fr", ",", "\[Sigma]r", ",", "xr", 
      ",", "er", ",", "T0r", " ", ",", "Ttilder", " ", ",", "Tendr", ",", 
      "\[Sigma]LbDr", ",", "\[Sigma]Cvr", ",", "Tfigr", ",", "g\[Lambda]r", 
      ",", "val\[Lambda]r", ",", "gyr", ",", "valYr", ",", "g\[Mu]r", ",", 
      "val\[Mu]r", ",", "g\[Sigma]r", ",", "val\[Sigma]Cvr", ",", 
      "val\[Sigma]LbDr", ",", "\[IndentingNewLine]", "gxr", ",", "valxr", ",",
       "ger", ",", "valer", ",", "gpr", ",", "valpr", ",", "subr", ",", 
      "taxr", ",", "glsR", ",", "budgr", ",", "evalr", ",", "Invr", ",", "Wr",
       ",", "Wre", ",", "ccr"}], "]"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "parameters", " ", "for", " ", "the", " ", "search", " ", "of", " ", 
     "the", " ", "solution", " ", "for", " ", "the", " ", "case", " ", "of", 
     " ", "a", " ", "small", " ", "carbon", " ", "tax"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"horizonguessS", "=", "72"}], ";"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"stepS", "=", "0.001"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"horizonLboundS", "=", "50"}], ";"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"horizonUboundS", "=", "100"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Zeta]1LboundS\[Tau]", "=", "24"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Zeta]1HboundS\[Tau]", "=", "25"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nS", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nbiterS", "=", "5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"**", "**", "**"}], "******)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", "choices", " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"carbonpriceS", "=", "30"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Tau]tilde", "=", 
     RowBox[{"carbonpriceS", " ", "\[Kappa]"}]}], ";"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"horizonguess", "=", "horizonguessS"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"horizonLbound", "=", "horizonLboundS"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"horizonUbound", "=", "horizonUboundS"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Zeta]1Lbound", "=", "\[Zeta]1LboundS\[Tau]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Zeta]1Hbound", "=", "\[Zeta]1HboundS\[Tau]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"step", "=", "stepS"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"n", "=", "nS"}], ";"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nbiter", " ", "=", "nbiterS"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"**", "**", "**"}], "******)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"\"\<Y(T) =  \>\"", ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "/", "\[Phi]"}], ")"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "/", 
          RowBox[{"(", 
           RowBox[{"cx", "+", "\[Tau]tilde"}], ")"}]}], ")"}], 
        "\[Epsilon]"]}], ",", "\"\<, and \[Tau]tilde = \>\"", ",", 
      "\[Tau]tilde"}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"\"\<Condition for overaccumulation: \[Tau]tilde < \>\"", ",", 
      RowBox[{
       RowBox[{"\[Gamma]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Phi]", " ", "Ystar"}], ")"}], 
         RowBox[{
          RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}], "-", "cx"}], ",", 
      "\[IndentingNewLine]", "\"\< here the constant tax is \>\"", ",", 
      "\[Tau]tilde", ",", "\"\<, i.e. \>\"", ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Tau]tilde", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Gamma]", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Phi]", " ", "Ystar"}], ")"}], 
              RowBox[{
               RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}], "-", "cx"}], 
           ")"}]}], "-", "1"}], ")"}], "*", "100"}], ",", 
      "\"\<% higher than the threshold\>\""}], "]"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.826697519672256*^9, 3.826697580027843*^9}, {
   3.826697652352769*^9, 3.8266977554561663`*^9}, {3.8266978504549828`*^9, 
   3.8266980625810966`*^9}, {3.826698118584816*^9, 3.82669813683633*^9}, {
   3.82671708533427*^9, 3.82671711297655*^9}, {3.826717195616568*^9, 
   3.8267172879058332`*^9}, {3.8267173280925407`*^9, 3.826717333641568*^9}, {
   3.826717522821595*^9, 3.826717570299461*^9}, {3.826717680880262*^9, 
   3.826717744163055*^9}, {3.8267701655635223`*^9, 3.8267701859289627`*^9}, 
   3.8267827128347197`*^9, {3.8267828066452017`*^9, 3.82678282296761*^9}, {
   3.826783014197393*^9, 3.8267830193821793`*^9}, {3.826783053053761*^9, 
   3.8267831904013863`*^9}, {3.826783283921215*^9, 3.826783353695147*^9}, {
   3.826783398939056*^9, 3.826783468595071*^9}, {3.8267839748795967`*^9, 
   3.826784025944957*^9}, {3.826784076268982*^9, 3.826784099613714*^9}, {
   3.826802617136519*^9, 3.8268026181797743`*^9}, {3.826802651897314*^9, 
   3.82680267122538*^9}, {3.826802722431972*^9, 3.826802767546453*^9}, {
   3.826802800603544*^9, 3.826802830739423*^9}, {3.826802862078915*^9, 
   3.8268028915248327`*^9}, {3.8268029217129583`*^9, 3.826802922935287*^9}, {
   3.8325799020902243`*^9, 3.83257991082253*^9}, {3.83258017566625*^9, 
   3.832580177208193*^9}, {3.832580226339326*^9, 3.832580227036541*^9}, {
   3.832580278582456*^9, 3.8325804303569593`*^9}, {3.832580461030594*^9, 
   3.8325804766469593`*^9}, 3.832580591372081*^9, 3.8325816333865843`*^9, {
   3.832581693506543*^9, 3.83258169403688*^9}, {3.832581729792838*^9, 
   3.832581731973393*^9}, 3.8327608773441143`*^9, {3.832760912232373*^9, 
   3.832760957930429*^9}, {3.8327616436011877`*^9, 3.832761674425411*^9}, {
   3.83281481827204*^9, 3.832814824036419*^9}, {3.832814911489626*^9, 
   3.832814912218461*^9}, {3.832815028115548*^9, 3.8328150895946007`*^9}, 
   3.8328152122241592`*^9, 3.83281525241672*^9, {3.832815299537415*^9, 
   3.832815300150611*^9}, {3.8328219508123713`*^9, 3.8328219516773767`*^9}, {
   3.8328220020371017`*^9, 3.832822006343603*^9}, {3.832822042412553*^9, 
   3.832822043304326*^9}, {3.83282212518801*^9, 3.832822126103573*^9}, {
   3.832822167920742*^9, 3.832822179657393*^9}, {3.832822218391253*^9, 
   3.832822219290711*^9}, {3.832822250934577*^9, 3.832822253951581*^9}, 
   3.832822322940024*^9, {3.832822374068527*^9, 3.832822374897048*^9}, {
   3.8328224264429293`*^9, 3.8328224272685833`*^9}, {3.832822459102688*^9, 
   3.832822460137269*^9}, 3.832822508242244*^9, 3.8337133494149017`*^9, {
   3.8337133846093063`*^9, 3.833713386142579*^9}, {3.846168616840665*^9, 
   3.846168896852541*^9}, {3.846168932383956*^9, 3.8461690023694143`*^9}, {
   3.846169089428948*^9, 3.846169180556508*^9}, {3.8461692683686113`*^9, 
   3.846169350350443*^9}, {3.846169380378189*^9, 3.846169450908692*^9}, {
   3.8465644626160965`*^9, 3.8465645791262984`*^9}, {3.8465646186629257`*^9, 
   3.846564633874517*^9}, {3.846564664949559*^9, 3.8465647643150935`*^9}, {
   3.8465648836830063`*^9, 3.846564884603797*^9}, {3.846565181204013*^9, 
   3.8465652339227037`*^9}, {3.8465653002792697`*^9, 3.846565348791662*^9}, {
   3.8465653941292987`*^9, 3.846565534488723*^9}, {3.8465657634089823`*^9, 
   3.846565763831935*^9}, {3.846565817722123*^9, 3.8465658181477704`*^9}, {
   3.846565869733901*^9, 3.8465658796397505`*^9}, {3.846565922079465*^9, 
   3.846565975746462*^9}, {3.8465660412443304`*^9, 3.846566041672748*^9}, {
   3.8465660832935743`*^9, 3.846566083755465*^9}, {3.846566125150813*^9, 
   3.846566125620896*^9}, {3.8465661803508615`*^9, 3.846566181736549*^9}, {
   3.8465662246347404`*^9, 3.8465662250377464`*^9}, {3.8465662715772862`*^9, 
   3.8465662719762306`*^9}, {3.846566316131551*^9, 3.846566316542246*^9}, {
   3.846566369764449*^9, 3.846566371018426*^9}, {3.8465664146601253`*^9, 
   3.846566450868167*^9}, {3.8465664815575085`*^9, 3.846566482546114*^9}, {
   3.846566523558004*^9, 3.846566524219438*^9}, {3.846566564048211*^9, 
   3.8465665645473433`*^9}, {3.846566597287648*^9, 3.846566597731559*^9}, {
   3.846566654310875*^9, 3.8465666547324963`*^9}, {3.8465666960379333`*^9, 
   3.8465666972313366`*^9}, {3.8465667310701065`*^9, 3.846566731508182*^9}, 
   3.846566763357732*^9, {3.8465668273097878`*^9, 3.8465668564927425`*^9}, {
   3.846572142198427*^9, 3.8465721434379787`*^9}, {3.8465721954951954`*^9, 
   3.8465721959316025`*^9}, {3.8465722511116605`*^9, 3.846572251397266*^9}, {
   3.846572297723818*^9, 3.84657229810223*^9}, {3.846572344819878*^9, 
   3.8465723489396024`*^9}, {3.846572402676483*^9, 3.846572403596615*^9}, {
   3.846816887816596*^9, 3.846816907888953*^9}, {3.8468169798589993`*^9, 
   3.846816980656866*^9}, 3.8468170652502584`*^9, {3.8468171278631983`*^9, 
   3.8468171297001514`*^9}, {3.846817162308836*^9, 3.846817162677336*^9}, {
   3.846817199814546*^9, 3.846817205683964*^9}, {3.846817250389989*^9, 
   3.8468172547467213`*^9}, {3.846817317347084*^9, 3.8468173215464487`*^9}, {
   3.8468173560918417`*^9, 3.846817356498454*^9}, {3.84681741982694*^9, 
   3.8468174222333508`*^9}, {3.8468174588604684`*^9, 
   3.8468174654173975`*^9}, {3.846817497173332*^9, 3.846817497572523*^9}, {
   3.846817542156522*^9, 3.846817543737306*^9}, 3.846817613948851*^9, {
   3.846817652835613*^9, 3.8468176532845783`*^9}, {3.846817784883647*^9, 
   3.8468177896046*^9}, {3.8468178294456234`*^9, 3.8468178298116064`*^9}, {
   3.846840592748277*^9, 3.846840593469572*^9}, {3.84684072787004*^9, 
   3.8468407897975545`*^9}, {3.846840885581024*^9, 3.8468410480771875`*^9}, {
   3.846841113928362*^9, 3.846841148926806*^9}, {3.8468411953338594`*^9, 
   3.8468412622909083`*^9}, {3.846845522308096*^9, 3.8468455327493944`*^9}, {
   3.846845631440799*^9, 3.846845633055486*^9}, {3.8468457220817623`*^9, 
   3.846845722511705*^9}, {3.8468457728250885`*^9, 3.8468457732191086`*^9}, {
   3.846845825580093*^9, 3.846845830737089*^9}, {3.846845865993413*^9, 
   3.8468458663714824`*^9}, {3.846845901089572*^9, 3.846845928163545*^9}, 
   3.8468460182097683`*^9, {3.84684605586761*^9, 3.846846056274093*^9}, {
   3.8468460896448784`*^9, 3.8468460900870004`*^9}, {3.8468461218678594`*^9, 
   3.846846122263889*^9}, {3.8468461651820526`*^9, 3.8468461962369614`*^9}, {
   3.8468462277838097`*^9, 3.8468462281858234`*^9}, {3.846846277123144*^9, 
   3.846846277559677*^9}, {3.8468463084458933`*^9, 3.84684630888103*^9}, {
   3.84684634195434*^9, 3.846846342525428*^9}, {3.846846372621909*^9, 
   3.8468463731648135`*^9}, {3.8468464147153444`*^9, 3.846846417137335*^9}, {
   3.8468464492196875`*^9, 3.8468465078554893`*^9}, 3.846846545620405*^9, 
   3.8468465831183376`*^9, {3.847168350628271*^9, 3.847168356873187*^9}, {
   3.847168421581848*^9, 3.84716842325585*^9}, {3.8471684666598234`*^9, 
   3.8471684965488424`*^9}, {3.847168532728888*^9, 3.847168534785991*^9}, {
   3.8471685690342646`*^9, 3.847168569464798*^9}, 3.8471687036475515`*^9, {
   3.847168754402199*^9, 3.84716875478022*^9}, {3.847168795384446*^9, 
   3.8471687967097855`*^9}, {3.8471688552194343`*^9, 3.847168862161374*^9}, 
   3.8471818830135994`*^9, {3.847181954726035*^9, 3.8471819554131203`*^9}, {
   3.8471820020222545`*^9, 3.8471820024534235`*^9}, {3.8471820561555595`*^9, 
   3.847182056837702*^9}, {3.8471822238978186`*^9, 3.847182230085563*^9}, {
   3.84718228831876*^9, 3.847182289354521*^9}, {3.8471823419303937`*^9, 
   3.8471823422775517`*^9}, {3.8471823741229897`*^9, 
   3.8471823753188696`*^9}, {3.847182441142972*^9, 3.8471824480104837`*^9}, {
   3.847182510540641*^9, 3.847182511399679*^9}, {3.847182553783943*^9, 
   3.847182554184085*^9}, {3.8471826230179844`*^9, 3.8471826299118166`*^9}, {
   3.847182676413659*^9, 3.847182676811701*^9}, {3.8471827085581083`*^9, 
   3.847182717800353*^9}, {3.847183277543023*^9, 3.8471833042939157`*^9}, {
   3.847183364775496*^9, 3.847183368420535*^9}, {3.8471857555482073`*^9, 
   3.847185759849716*^9}, {3.8471857988380156`*^9, 3.847185799498404*^9}, {
   3.8471862464220467`*^9, 3.847186247308177*^9}, {3.8471862990537233`*^9, 
   3.8471863005417523`*^9}, {3.847186349199266*^9, 3.8471863537260284`*^9}, {
   3.8471863997277765`*^9, 3.8471864028614235`*^9}, {3.847187199011094*^9, 
   3.847187208704338*^9}, {3.847187358284011*^9, 3.847187360383865*^9}, {
   3.8471878345448847`*^9, 3.8471878374724317`*^9}, {3.8471878934430323`*^9, 
   3.847187901599221*^9}, {3.847187988945199*^9, 3.8471879894877634`*^9}, {
   3.8471880239050446`*^9, 3.847188024367765*^9}, {3.847188066721484*^9, 
   3.8471880671798053`*^9}, {3.8477743115920515`*^9, 
   3.8477743456859703`*^9}, {3.8477743851640415`*^9, 
   3.8477744358321185`*^9}, {3.847775078299969*^9, 3.8477751140288024`*^9}, {
   3.8477751456473293`*^9, 3.847775203868208*^9}, {3.847776002245963*^9, 
   3.8477760078704586`*^9}, 3.847776050652022*^9, 3.8477761899666224`*^9, {
   3.8477762284476495`*^9, 3.8477762297116504`*^9}, {3.8477765596949377`*^9, 
   3.8477765663370333`*^9}, {3.8477765976210856`*^9, 3.847776599199218*^9}, {
   3.847776655249057*^9, 3.847776657037112*^9}, {3.8477766981179156`*^9, 
   3.847776698516111*^9}, {3.847776730498355*^9, 3.8477767309613485`*^9}, {
   3.847776768711695*^9, 3.847776769041966*^9}, {3.847776803954246*^9, 
   3.8477768065305815`*^9}, {3.8477768376668515`*^9, 
   3.8477768381470375`*^9}, {3.8477768707279167`*^9, 
   3.8477768717026453`*^9}, {3.847776921764016*^9, 3.847776922163028*^9}, {
   3.847776952344473*^9, 3.847776952788228*^9}, {3.847776985364601*^9, 
   3.847776985780669*^9}, {3.8477866794303136`*^9, 3.84778667984599*^9}, {
   3.8477873141278243`*^9, 3.8477873160424194`*^9}, 3.850105326454054*^9, {
   3.850105450557302*^9, 3.850105451012927*^9}, {3.85010806120964*^9, 
   3.850108092618986*^9}, 3.850117324474875*^9, {3.850117366517408*^9, 
   3.8501173769303093`*^9}, {3.8501174070548286`*^9, 3.850117408395995*^9}, {
   3.850117443607841*^9, 3.850117473155306*^9}, {3.850117533485461*^9, 
   3.850117563705892*^9}, {3.850117741748948*^9, 3.850117750322994*^9}, {
   3.850117794372225*^9, 3.850117824720663*^9}, {3.850117904219551*^9, 
   3.8501179298877163`*^9}, {3.850117962056738*^9, 3.850117962712305*^9}, {
   3.850117994846031*^9, 3.8501179962864857`*^9}, {3.850118065988982*^9, 
   3.8501180914825087`*^9}, {3.8501181310710783`*^9, 
   3.8501181610669127`*^9}, {3.8501182295623693`*^9, 3.850118230738785*^9}, {
   3.850118301487468*^9, 3.850118302060938*^9}, {3.850118332737337*^9, 
   3.850118333280201*^9}, {3.850118405397106*^9, 3.8501184058041973`*^9}, {
   3.850118489968623*^9, 3.850118519455214*^9}, {3.850118552956504*^9, 
   3.850118575743051*^9}, {3.850118765409046*^9, 3.850118771960374*^9}, {
   3.850118812856224*^9, 3.850118893049198*^9}, {3.850118923251402*^9, 
   3.850118923869855*^9}, {3.8501189566490726`*^9, 3.850118957920586*^9}, {
   3.850119046586322*^9, 3.850119051713883*^9}, {3.850119101608327*^9, 
   3.850119109594512*^9}, {3.8501191398798323`*^9, 3.850119141127655*^9}, {
   3.850119173983411*^9, 3.850119199667345*^9}, {3.850120378709189*^9, 
   3.850120383503951*^9}, {3.850120564697809*^9, 3.850120568824438*^9}, {
   3.8501207032615013`*^9, 3.850120714981923*^9}, {3.850121458425909*^9, 
   3.850121465346531*^9}, {3.850121717351218*^9, 3.850121722018303*^9}, {
   3.850121856316718*^9, 3.850121865863584*^9}, {3.850121942408844*^9, 
   3.850121943233336*^9}, {3.850121985480678*^9, 3.850121986187787*^9}, {
   3.85012202347818*^9, 3.850122024572042*^9}, {3.850129174857646*^9, 
   3.85012918723383*^9}, {3.850129224024403*^9, 3.850129245933983*^9}, {
   3.850129338770412*^9, 3.850129367724288*^9}, {3.850129768466979*^9, 
   3.8501298036377296`*^9}, {3.850129890593261*^9, 3.8501299057053213`*^9}, {
   3.850129942170727*^9, 3.850129970481387*^9}, {3.850130007472999*^9, 
   3.8501300090953007`*^9}, {3.850130045109268*^9, 3.850130046326213*^9}, {
   3.850130077163373*^9, 3.8501300787026663`*^9}, {3.850130116044836*^9, 
   3.85013011717542*^9}, {3.850130159429723*^9, 3.850130160470457*^9}, {
   3.850130282772266*^9, 3.850130283398079*^9}, {3.850130426209179*^9, 
   3.850130431735999*^9}, {3.850130463496972*^9, 3.850130464132759*^9}, {
   3.850130494134589*^9, 3.850130494818221*^9}, {3.850130580259663*^9, 
   3.850130591334683*^9}, {3.850130642340795*^9, 3.8501306430406*^9}, {
   3.85013068665588*^9, 3.850130687109206*^9}, {3.850130724515793*^9, 
   3.8501307256881638`*^9}, {3.850130827926322*^9, 3.850130834670907*^9}, {
   3.850130868659151*^9, 3.850130869376953*^9}, {3.850130952735056*^9, 
   3.8501309619162617`*^9}, {3.850131006521325*^9, 3.850131009141151*^9}, {
   3.850131051935205*^9, 3.850131052754569*^9}, {3.850131161936479*^9, 
   3.8501311713760653`*^9}, {3.8501312169897337`*^9, 3.850131222830778*^9}, {
   3.850131430187994*^9, 3.850131450622004*^9}, {3.8501315948190203`*^9, 
   3.85013160383984*^9}, {3.8501316358428288`*^9, 3.850131638947242*^9}, {
   3.850132619310707*^9, 3.8501326287463093`*^9}, {3.85021673997064*^9, 
   3.850216746506405*^9}, {3.850217270813773*^9, 3.850217277552697*^9}, {
   3.850217388856481*^9, 3.850217389446454*^9}, {3.85021810105828*^9, 
   3.8502181085064917`*^9}, {3.850218472747426*^9, 3.850218477815847*^9}, {
   3.8502187517642927`*^9, 3.850218757683867*^9}, {3.850219288985888*^9, 
   3.850219295567656*^9}, {3.8502195706513853`*^9, 3.850219575840908*^9}, {
   3.850219935373763*^9, 3.850219940844654*^9}, {3.850220253936339*^9, 
   3.8502202651335917`*^9}, {3.850220624696453*^9, 3.850220629227561*^9}, {
   3.850220875433758*^9, 3.850220885478752*^9}, {3.8505370700102*^9, 
   3.8505370813544817`*^9}, {3.850565629849069*^9, 3.85056563348071*^9}, {
   3.850565666269004*^9, 3.8505656966153183`*^9}, {3.850565830162315*^9, 
   3.850565834082514*^9}, {3.850565898597991*^9, 3.8505659043078737`*^9}, {
   3.850565978750987*^9, 3.85056598389172*^9}, {3.850566093294344*^9, 
   3.8505660941957083`*^9}, {3.850566145324018*^9, 3.850566146023922*^9}, {
   3.850566209286818*^9, 3.850566210007201*^9}, {3.850566266252205*^9, 
   3.850566267477043*^9}, {3.850566325555912*^9, 3.850566326702866*^9}, {
   3.85056654983416*^9, 3.8505665522597523`*^9}, {3.8505666801756*^9, 
   3.850566683026572*^9}, {3.850566730465241*^9, 3.850566732200693*^9}, {
   3.850566796013145*^9, 3.850566796943965*^9}, {3.850566858421015*^9, 
   3.850566859074163*^9}, {3.850567010870367*^9, 3.8505670121205597`*^9}, {
   3.85056708887847*^9, 3.8505670911898317`*^9}, {3.850567149659032*^9, 
   3.850567150422923*^9}, {3.850567198297821*^9, 3.8505671989867907`*^9}, {
   3.8506345083608418`*^9, 3.850634515300083*^9}, {3.8506346037670393`*^9, 
   3.8506346044077797`*^9}, {3.850634656135343*^9, 3.850634656782777*^9}, {
   3.8506347330271893`*^9, 3.850634733635788*^9}, {3.850635451948509*^9, 
   3.850635459336624*^9}, {3.8506370395926437`*^9, 3.850637044225462*^9}, {
   3.850637142389727*^9, 3.8506371429924097`*^9}, {3.8506372063057747`*^9, 
   3.850637207318224*^9}, {3.85063736710427*^9, 3.850637372024559*^9}, {
   3.85063740546172*^9, 3.850637436288137*^9}, {3.85063748040703*^9, 
   3.850637481007614*^9}, {3.850637517121381*^9, 3.850637517605341*^9}, {
   3.850637672754189*^9, 3.850637678963931*^9}, {3.850637736483986*^9, 
   3.850637737110095*^9}, {3.850637781028698*^9, 3.850637783085498*^9}, 
   3.850637844209799*^9, {3.850637882390188*^9, 3.85063788355052*^9}, {
   3.8506380189387817`*^9, 3.8506380244455233`*^9}, {3.8506380694552107`*^9, 
   3.850638071523251*^9}, {3.850638218236308*^9, 3.850638223685155*^9}, {
   3.850638270633967*^9, 3.8506382713736753`*^9}, {3.8506383106985493`*^9, 
   3.85063831351436*^9}, {3.850638348748728*^9, 3.850638350219164*^9}, {
   3.850638386580315*^9, 3.850638387119363*^9}, {3.850638503409684*^9, 
   3.850638503999045*^9}, {3.850713932575355*^9, 3.85071394287671*^9}, {
   3.851316127570936*^9, 3.851316138684531*^9}, {3.851321521468981*^9, 
   3.85132152698806*^9}, {3.853823305982665*^9, 3.8538233066551733`*^9}, {
   3.8538235732025175`*^9, 3.853823575138483*^9}, {3.8538236210909424`*^9, 
   3.853823621890173*^9}, {3.853823661699435*^9, 3.8538236625947776`*^9}, {
   3.853823700723941*^9, 3.853823701411576*^9}, {3.8538238087235713`*^9, 
   3.8538238094595613`*^9}, {3.8538239543569775`*^9, 3.853823961348072*^9}, {
   3.8538239999728594`*^9, 3.853824000548355*^9}, {3.8538240439903173`*^9, 
   3.853824044756715*^9}, 3.853824154500971*^9, {3.8538241998285*^9, 
   3.8538242002292385`*^9}, {3.853824268680894*^9, 3.853824274296129*^9}, {
   3.8538243637379103`*^9, 3.853824364807498*^9}, {3.8538244437551317`*^9, 
   3.8538244444268365`*^9}, {3.853824515593096*^9, 3.8538245158985386`*^9}, {
   3.8538246269239187`*^9, 3.853824627307456*^9}, {3.8538246908573246`*^9, 
   3.853824691659767*^9}, {3.8538247572609625`*^9, 3.8538247583615227`*^9}, {
   3.853844995722381*^9, 3.853844998753285*^9}, {3.8538450303738613`*^9, 
   3.853845031829542*^9}, {3.853845080325083*^9, 3.853845081347185*^9}, {
   3.853845118727147*^9, 3.853845119371571*^9}, {3.853845241552156*^9, 
   3.853845249551736*^9}, {3.853845289417379*^9, 3.853845290997156*^9}, {
   3.853845329933813*^9, 3.853845330516078*^9}, {3.858228276611062*^9, 
   3.858228279733155*^9}, {3.858228399658045*^9, 3.858228487770542*^9}, {
   3.8582293635669627`*^9, 3.858229394078039*^9}, {3.8582294381914268`*^9, 
   3.8582294390220456`*^9}, {3.8599523457014832`*^9, 3.859952347352522*^9}, {
   3.8619430902508698`*^9, 3.861943092218273*^9}, {3.8619434231837173`*^9, 
   3.8619434238876762`*^9}, {3.861943483554598*^9, 3.8619434857931924`*^9}, {
   3.8619435789641957`*^9, 3.861943599763421*^9}, {3.8619436560049906`*^9, 
   3.8619436568525534`*^9}, {3.8619436870947013`*^9, 
   3.8619436874734173`*^9}, {3.8619437180355597`*^9, 
   3.8619437462898865`*^9}, {3.861944396363202*^9, 3.8619444024895782`*^9}, {
   3.861944593691354*^9, 3.8619445943476105`*^9}, {3.861944674477019*^9, 
   3.861944674844057*^9}, {3.861944889662238*^9, 3.8619448900904493`*^9}, {
   3.861944928890355*^9, 3.8619449545253468`*^9}, {3.8619450102541056`*^9, 
   3.8619450106359015`*^9}, {3.861945052014599*^9, 3.86194505956567*^9}, {
   3.86194509479871*^9, 3.861945102702097*^9}, {3.8619452004306803`*^9, 
   3.861945206237996*^9}, {3.8619453159833794`*^9, 3.8619453173262606`*^9}, {
   3.8619461033335524`*^9, 3.861946103780552*^9}, {3.8619461458136735`*^9, 
   3.861946166401575*^9}, {3.8619462046144147`*^9, 3.861946206722521*^9}, {
   3.8619462754582205`*^9, 3.86194627582889*^9}, {3.8619463579900093`*^9, 
   3.8619463587410636`*^9}, {3.861958088944201*^9, 3.861958090303749*^9}, {
   3.8620207040919123`*^9, 3.86202071327411*^9}, {3.862020778535898*^9, 
   3.862020809255584*^9}, {3.8620208400580053`*^9, 3.8620208419765472`*^9}, {
   3.862029007586894*^9, 3.8620290082458677`*^9}, {3.862029564045808*^9, 
   3.862029590917523*^9}, {3.862029623635584*^9, 3.862029646503072*^9}, {
   3.862030252876906*^9, 3.862030300555291*^9}, {3.8620405836090517`*^9, 
   3.862040585841251*^9}, {3.86204066172899*^9, 3.862040662619116*^9}, {
   3.862040710187956*^9, 3.862040765912119*^9}, {3.862222689569578*^9, 
   3.862222757679453*^9}, {3.8622228013232527`*^9, 3.862222801894055*^9}, {
   3.8622228547981*^9, 3.862222855330924*^9}, {3.8622228881431513`*^9, 
   3.862222888646615*^9}, {3.862222943683242*^9, 3.862222999259379*^9}, {
   3.8622235817299757`*^9, 3.862223613880705*^9}, {3.8622236596288023`*^9, 
   3.862223664633376*^9}, {3.862223704113743*^9, 3.862223705944214*^9}, 
   3.8622241615162687`*^9, {3.862224192658349*^9, 3.862224193300349*^9}, {
   3.862536717331649*^9, 3.862536737891762*^9}, {3.862536964907688*^9, 
   3.862536966577189*^9}, {3.862537054301325*^9, 3.8625370548586617`*^9}, {
   3.862537089210156*^9, 3.862537090142973*^9}, {3.8625371699536257`*^9, 
   3.862537173638864*^9}, {3.862537204110285*^9, 3.862537204676919*^9}, {
   3.8625372357188807`*^9, 3.8625372364595613`*^9}, {3.8625377994810247`*^9, 
   3.8625378015226517`*^9}, {3.862537841258854*^9, 3.862537841797711*^9}, {
   3.86253816853578*^9, 3.862538169165635*^9}, {3.862538202389081*^9, 
   3.862538231920485*^9}, {3.86253826919326*^9, 3.862538313527114*^9}, {
   3.862538371803646*^9, 3.862538373687849*^9}, {3.862538419097465*^9, 
   3.86253842065512*^9}, {3.8625384730682983`*^9, 3.8625384751670628`*^9}, {
   3.862538507864965*^9, 3.8625385086724777`*^9}, {3.8796881720689783`*^9, 
   3.879688180105919*^9}, {3.8796884111390667`*^9, 3.879688415624136*^9}, {
   3.879688467473083*^9, 3.8796884681821012`*^9}, {3.87968851955469*^9, 
   3.879688520149296*^9}, {3.879688603126773*^9, 3.87968860501663*^9}, {
   3.8796886357787857`*^9, 3.8796886365053596`*^9}, {3.8796886669448137`*^9, 
   3.8796886678316107`*^9}, {3.879688700084229*^9, 3.879688727382341*^9}, {
   3.879688759493141*^9, 3.879688760171337*^9}, {3.879688793283084*^9, 
   3.879688793915967*^9}, {3.879689665498662*^9, 3.8796896777485943`*^9}, {
   3.882607527890471*^9, 3.8826075378376713`*^9}, {3.882607579807377*^9, 
   3.882607609014842*^9}, {3.8826076658032618`*^9, 3.882607666086542*^9}, {
   3.882607705207464*^9, 3.882607705391934*^9}, {3.882938672522832*^9, 
   3.8829386754579697`*^9}, {3.882938736705246*^9, 3.882938747646742*^9}, 
   3.882938907259019*^9, {3.8829403150272017`*^9, 3.882940315633481*^9}, {
   3.8829404769068117`*^9, 3.882940491590109*^9}, {3.882963259486373*^9, 
   3.882963261544753*^9}, {3.8829633138489122`*^9, 3.882963321920601*^9}, {
   3.882963381982129*^9, 3.8829633824163218`*^9}, {3.882963587491631*^9, 
   3.8829635879043713`*^9}, {3.882963679618927*^9, 3.8829636846142387`*^9}, {
   3.8836402340074005`*^9, 3.8836402782733493`*^9}, {3.8836403272653756`*^9, 
   3.8836403409572268`*^9}, {3.884966011211506*^9, 3.8849660270968328`*^9}, {
   3.8849661385575967`*^9, 3.8849661593684273`*^9}, {3.8849665959047318`*^9, 
   3.8849666014748306`*^9}, {3.884966660348283*^9, 3.8849666679418807`*^9}, 
   3.8849667104940205`*^9, {3.8849667493024874`*^9, 3.8849667598392076`*^9}, {
   3.8849667970199986`*^9, 3.884966804918294*^9}, {3.8849668397754297`*^9, 
   3.8849668404626675`*^9}, {3.8849668888139315`*^9, 
   3.8849669264343176`*^9}, {3.884966965843015*^9, 3.8849669754336133`*^9}, {
   3.8849670203831177`*^9, 3.8849670257226553`*^9}, {3.8849670627105083`*^9, 
   3.884967073731911*^9}, {3.8849671240247602`*^9, 3.884967130853511*^9}, {
   3.8849672052183795`*^9, 3.88496728780404*^9}, {3.8872527733235927`*^9, 
   3.887252778329769*^9}, {3.887252813197178*^9, 3.8872528338063436`*^9}, 
   3.887252987903009*^9, {3.8872530408091373`*^9, 3.8872530972216682`*^9}, {
   3.887253284932677*^9, 3.887253295660068*^9}, {3.8872533532653656`*^9, 
   3.887253371150399*^9}, {3.887253462831625*^9, 3.8872534683809724`*^9}, {
   3.8872535386530347`*^9, 3.887253539321678*^9}, {3.8872537398365164`*^9, 
   3.88725374856768*^9}, {3.8872538427809944`*^9, 3.887253846413406*^9}, {
   3.887253914324025*^9, 3.8872539158117533`*^9}, {3.8872543711696033`*^9, 
   3.887254377853865*^9}, {3.887254478362141*^9, 3.8872544805474076`*^9}, {
   3.8872545360762415`*^9, 3.8872545362896976`*^9}, {3.887342672224772*^9, 
   3.8873427007885947`*^9}, {3.887342770716213*^9, 3.8873427713342886`*^9}, {
   3.887342903154155*^9, 3.8873429058734484`*^9}, 3.8873429509589977`*^9, 
   3.887342987237218*^9, {3.8873430606400256`*^9, 3.88734306172898*^9}, {
   3.887343099822216*^9, 3.887343100800188*^9}, {3.887343147369775*^9, 
   3.8873431484825745`*^9}, {3.8873432111902356`*^9, 
   3.8873432342413254`*^9}, {3.8873433147133727`*^9, 3.887343315236265*^9}, {
   3.887343345560911*^9, 3.8873433627856407`*^9}, {3.8873434902495413`*^9, 
   3.887343496950579*^9}, {3.8873435771814823`*^9, 3.887343578220842*^9}, {
   3.887343638740697*^9, 3.887343651837404*^9}, {3.8873437170714655`*^9, 
   3.8873437251079206`*^9}, {3.887343886070683*^9, 3.8873438876189675`*^9}, {
   3.88734403795364*^9, 3.887344057429132*^9}, {3.8873441493530006`*^9, 
   3.887344149894088*^9}, {3.887345356829851*^9, 3.887345373588199*^9}, {
   3.8873576558632374`*^9, 3.887357705460633*^9}, {3.8873581025700874`*^9, 
   3.887358121037843*^9}, {3.887358275991259*^9, 3.8873582833361235`*^9}, {
   3.887358327250661*^9, 3.887358419544011*^9}, {3.887358475758278*^9, 
   3.8873584824836297`*^9}, {3.887358606039578*^9, 3.8873586077480884`*^9}, {
   3.887358726960225*^9, 3.887358733573998*^9}, {3.8873589417130475`*^9, 
   3.887358952817526*^9}, 3.8873590041090508`*^9, {3.8873590630399275`*^9, 
   3.8873590765297613`*^9}, {3.887359113797954*^9, 3.8873591217528567`*^9}, {
   3.887359162311715*^9, 3.8873591628319006`*^9}, {3.8873592032573833`*^9, 
   3.8873592394382067`*^9}, {3.8873596359866333`*^9, 3.887359811011495*^9}, {
   3.895303006866289*^9, 3.89530300968395*^9}, {3.895303416035554*^9, 
   3.895303422026658*^9}, {3.895303527023464*^9, 3.8953035361406384`*^9}, {
   3.895303740299267*^9, 3.895303741084827*^9}, {3.8953048844557037`*^9, 
   3.895304887821074*^9}, {3.895305209198814*^9, 3.895305221180719*^9}, {
   3.895305253868161*^9, 3.895305295234158*^9}, {3.8953063164913797`*^9, 
   3.895306317111175*^9}, {3.895307823068375*^9, 3.895307823833926*^9}, {
   3.895307887174988*^9, 3.895307896234109*^9}, {3.895307950318017*^9, 
   3.895307957827594*^9}, {3.895308021287746*^9, 3.895308024040681*^9}, {
   3.895308094721154*^9, 3.895308103991227*^9}, {3.8953081614667377`*^9, 
   3.8953081982834387`*^9}, {3.895308274337131*^9, 3.8953082761464252`*^9}, {
   3.895308321753962*^9, 3.895308322656644*^9}, {3.8953098737913017`*^9, 
   3.8953098743528337`*^9}, {3.896323157842863*^9, 3.896323166971187*^9}, {
   3.896323248496276*^9, 3.8963232558226633`*^9}, {3.8963238415157824`*^9, 
   3.896323842313408*^9}, {3.89632476712042*^9, 3.896324772485026*^9}, {
   3.896324877549232*^9, 3.896324895065311*^9}, {3.8979939586541033`*^9, 
   3.897993964187502*^9}, {3.897994038509535*^9, 3.897994043127383*^9}, {
   3.897994081959703*^9, 3.89799408938743*^9}, {3.897994124216948*^9, 
   3.897994188800652*^9}, {3.897994222870131*^9, 3.8979942234804907`*^9}, {
   3.897994265283725*^9, 3.8979942660445147`*^9}, {3.8979979551655807`*^9, 
   3.897997956123507*^9}, {3.897998047789241*^9, 3.897998049090109*^9}, {
   3.8981630217168913`*^9, 3.898163023037344*^9}, {3.898163075839327*^9, 
   3.898163077594569*^9}, {3.8981632104602203`*^9, 3.898163224449313*^9}, {
   3.89816328082294*^9, 3.898163286569251*^9}, {3.8981633395806017`*^9, 
   3.898163346068985*^9}, {3.898163379289896*^9, 3.8981633848085423`*^9}, {
   3.898758650696933*^9, 3.898758670628601*^9}, {3.898758707792677*^9, 
   3.898758708510771*^9}, {3.898758770682921*^9, 3.898758780290572*^9}, {
   3.8987588135910053`*^9, 3.8987588145338697`*^9}, {3.898758864616109*^9, 
   3.89875886635828*^9}, {3.8987589077232847`*^9, 3.898758913518723*^9}, {
   3.898758962314749*^9, 3.8987589644856462`*^9}, {3.8987590067980747`*^9, 
   3.898759013416114*^9}, {3.898768937031755*^9, 3.898768937849655*^9}, {
   3.89876898214637*^9, 3.898768985420258*^9}, {3.898769017070533*^9, 
   3.898769051905465*^9}, {3.898769082765265*^9, 3.8987690836754637`*^9}, {
   3.898769126854474*^9, 3.898769133815133*^9}, {3.8987691703416348`*^9, 
   3.89876917111351*^9}, {3.8989345684334393`*^9, 3.898934609570395*^9}, {
   3.898934692108877*^9, 3.898934692999902*^9}, {3.9097529158730297`*^9, 
   3.909752921988099*^9}, {3.9097529597171707`*^9, 3.9097530016095667`*^9}, {
   3.909753032248331*^9, 3.9097530332227926`*^9}, {3.9097530640733128`*^9, 
   3.9097531599001656`*^9}, {3.9098274532301617`*^9, 
   3.9098274591507373`*^9}, {3.909827493039116*^9, 3.909827559101736*^9}, {
   3.9098276023089933`*^9, 3.9098276208342056`*^9}, {3.9108404241948376`*^9, 
   3.9108404735142956`*^9}, {3.910840506573732*^9, 3.9108405230769296`*^9}, {
   3.9108406201344533`*^9, 3.910840646930359*^9}, {3.910840688073018*^9, 
   3.910840853631785*^9}, {3.9108408860925384`*^9, 3.910840886664119*^9}, {
   3.9108409434656954`*^9, 3.910840943921209*^9}, {3.9108409832223673`*^9, 
   3.910840983893074*^9}, {3.9120875045447044`*^9, 3.9120875370974226`*^9}, {
   3.912087590621806*^9, 3.912087742383304*^9}, {3.91209423903419*^9, 
   3.9120942971936445`*^9}, {3.9120944022554693`*^9, 
   3.9120944337229986`*^9}, {3.9120945697854705`*^9, 3.912094600419735*^9}, {
   3.914667766881113*^9, 3.914667820410078*^9}, {3.9147603864509478`*^9, 
   3.914760399020174*^9}, 3.9608829201017866`*^9, {3.961066999723875*^9, 
   3.961067081318336*^9}, {3.9610671113232627`*^9, 3.961067144938913*^9}, 
   3.9610674753203363`*^9, {3.961067519629204*^9, 3.9610675572182407`*^9}, {
   3.9610676022965765`*^9, 3.9610676255512495`*^9}, {3.961068289868363*^9, 
   3.961068302633393*^9}, {3.961068457323142*^9, 3.961068462955814*^9}, {
   3.961070087454852*^9, 3.9610701760674205`*^9}, 3.961080913234604*^9},
 CellLabel->
  "In[149]:=",ExpressionUUID->"cdabc506-91e7-4490-bd04-c2e64157084d"],

Cell[CellGroupData[{

Cell["Resolution", "Subsubsection",
 CellChangeTimes->{{3.826697519672256*^9, 3.826697580027843*^9}, {
   3.826697652352769*^9, 3.8266977554561663`*^9}, {3.8266978504549828`*^9, 
   3.8266980625810966`*^9}, {3.826698118584816*^9, 3.82669813683633*^9}, {
   3.82671708533427*^9, 3.82671711297655*^9}, {3.826717195616568*^9, 
   3.8267172879058332`*^9}, {3.8267173280925407`*^9, 3.826717333641568*^9}, {
   3.826717522821595*^9, 3.826717570299461*^9}, {3.826717680880262*^9, 
   3.826717744163055*^9}, {3.8267701655635223`*^9, 3.8267701859289627`*^9}, 
   3.8267827128347197`*^9, {3.8267828066452017`*^9, 3.82678282296761*^9}, {
   3.826783014197393*^9, 3.8267830193821793`*^9}, {3.826783053053761*^9, 
   3.8267831904013863`*^9}, {3.826783283921215*^9, 3.826783353695147*^9}, {
   3.826783398939056*^9, 3.826783468595071*^9}, {3.8267839748795967`*^9, 
   3.826784025944957*^9}, {3.826784076268982*^9, 3.826784099613714*^9}, {
   3.826802617136519*^9, 3.8268026181797743`*^9}, {3.826802651897314*^9, 
   3.82680267122538*^9}, {3.826802722431972*^9, 3.826802767546453*^9}, {
   3.826802800603544*^9, 3.826802830739423*^9}, {3.826802862078915*^9, 
   3.8268028915248327`*^9}, {3.8268029217129583`*^9, 3.826802922935287*^9}, {
   3.8325799020902243`*^9, 3.83257991082253*^9}, {3.83258017566625*^9, 
   3.832580177208193*^9}, {3.832580226339326*^9, 3.832580227036541*^9}, {
   3.832580278582456*^9, 3.8325804303569593`*^9}, {3.832580461030594*^9, 
   3.8325804766469593`*^9}, 3.832580591372081*^9, 3.8325816333865843`*^9, {
   3.832581693506543*^9, 3.83258169403688*^9}, {3.832581729792838*^9, 
   3.832581731973393*^9}, 3.8327608773441143`*^9, {3.832760912232373*^9, 
   3.832760957930429*^9}, {3.8327616436011877`*^9, 3.832761674425411*^9}, {
   3.83281481827204*^9, 3.832814824036419*^9}, {3.832814911489626*^9, 
   3.832814912218461*^9}, {3.832815028115548*^9, 3.8328150895946007`*^9}, 
   3.8328152122241592`*^9, 3.83281525241672*^9, {3.832815299537415*^9, 
   3.832815300150611*^9}, {3.8328219508123713`*^9, 3.8328219516773767`*^9}, {
   3.8328220020371017`*^9, 3.832822006343603*^9}, {3.832822042412553*^9, 
   3.832822043304326*^9}, {3.83282212518801*^9, 3.832822126103573*^9}, {
   3.832822167920742*^9, 3.832822179657393*^9}, {3.832822218391253*^9, 
   3.832822219290711*^9}, {3.832822250934577*^9, 3.832822253951581*^9}, 
   3.832822322940024*^9, {3.832822374068527*^9, 3.832822374897048*^9}, {
   3.8328224264429293`*^9, 3.8328224272685833`*^9}, {3.832822459102688*^9, 
   3.832822460137269*^9}, 3.832822508242244*^9, 3.8337133494149017`*^9, {
   3.8337133846093063`*^9, 3.833713386142579*^9}, {3.846168616840665*^9, 
   3.846168896852541*^9}, {3.846168932383956*^9, 3.8461690023694143`*^9}, {
   3.846169089428948*^9, 3.846169180556508*^9}, {3.8461692683686113`*^9, 
   3.846169350350443*^9}, {3.846169380378189*^9, 3.846169450908692*^9}, {
   3.8465644626160965`*^9, 3.8465645791262984`*^9}, {3.8465646186629257`*^9, 
   3.846564633874517*^9}, {3.846564664949559*^9, 3.8465647643150935`*^9}, {
   3.8465648836830063`*^9, 3.846564884603797*^9}, {3.846565181204013*^9, 
   3.8465652339227037`*^9}, {3.8465653002792697`*^9, 3.846565348791662*^9}, {
   3.8465653941292987`*^9, 3.846565534488723*^9}, {3.8465657634089823`*^9, 
   3.846565763831935*^9}, {3.846565817722123*^9, 3.8465658181477704`*^9}, {
   3.846565869733901*^9, 3.8465658796397505`*^9}, {3.846565922079465*^9, 
   3.846565975746462*^9}, {3.8465660412443304`*^9, 3.846566041672748*^9}, {
   3.8465660832935743`*^9, 3.846566083755465*^9}, {3.846566125150813*^9, 
   3.846566125620896*^9}, {3.8465661803508615`*^9, 3.846566181736549*^9}, {
   3.8465662246347404`*^9, 3.8465662250377464`*^9}, {3.8465662715772862`*^9, 
   3.8465662719762306`*^9}, {3.846566316131551*^9, 3.846566316542246*^9}, {
   3.846566369764449*^9, 3.846566371018426*^9}, {3.8465664146601253`*^9, 
   3.846566450868167*^9}, {3.8465664815575085`*^9, 3.846566482546114*^9}, {
   3.846566523558004*^9, 3.846566524219438*^9}, {3.846566564048211*^9, 
   3.8465665645473433`*^9}, {3.846566597287648*^9, 3.846566597731559*^9}, {
   3.846566654310875*^9, 3.8465666547324963`*^9}, {3.8465666960379333`*^9, 
   3.8465666972313366`*^9}, {3.8465667310701065`*^9, 3.846566731508182*^9}, 
   3.846566763357732*^9, {3.8465668273097878`*^9, 3.8465668564927425`*^9}, {
   3.846572142198427*^9, 3.8465721434379787`*^9}, {3.8465721954951954`*^9, 
   3.8465721959316025`*^9}, {3.8465722511116605`*^9, 3.846572251397266*^9}, {
   3.846572297723818*^9, 3.84657229810223*^9}, {3.846572344819878*^9, 
   3.8465723489396024`*^9}, {3.846572402676483*^9, 3.846572403596615*^9}, {
   3.846816887816596*^9, 3.846816907888953*^9}, {3.8468169798589993`*^9, 
   3.846816980656866*^9}, 3.8468170652502584`*^9, {3.8468171278631983`*^9, 
   3.8468171297001514`*^9}, {3.846817162308836*^9, 3.846817162677336*^9}, {
   3.846817199814546*^9, 3.846817205683964*^9}, {3.846817250389989*^9, 
   3.8468172547467213`*^9}, {3.846817317347084*^9, 3.8468173215464487`*^9}, {
   3.8468173560918417`*^9, 3.846817356498454*^9}, {3.84681741982694*^9, 
   3.8468174222333508`*^9}, {3.8468174588604684`*^9, 
   3.8468174654173975`*^9}, {3.846817497173332*^9, 3.846817497572523*^9}, {
   3.846817542156522*^9, 3.846817543737306*^9}, 3.846817613948851*^9, {
   3.846817652835613*^9, 3.8468176532845783`*^9}, {3.846817784883647*^9, 
   3.8468177896046*^9}, {3.8468178294456234`*^9, 3.8468178298116064`*^9}, {
   3.846840592748277*^9, 3.846840593469572*^9}, {3.84684072787004*^9, 
   3.8468407897975545`*^9}, {3.846840885581024*^9, 3.8468410480771875`*^9}, {
   3.846841113928362*^9, 3.846841148926806*^9}, {3.8468411953338594`*^9, 
   3.8468412622909083`*^9}, {3.846845522308096*^9, 3.8468455327493944`*^9}, {
   3.846845631440799*^9, 3.846845633055486*^9}, {3.8468457220817623`*^9, 
   3.846845722511705*^9}, {3.8468457728250885`*^9, 3.8468457732191086`*^9}, {
   3.846845825580093*^9, 3.846845830737089*^9}, {3.846845865993413*^9, 
   3.8468458663714824`*^9}, {3.846845901089572*^9, 3.846845928163545*^9}, 
   3.8468460182097683`*^9, {3.84684605586761*^9, 3.846846056274093*^9}, {
   3.8468460896448784`*^9, 3.8468460900870004`*^9}, {3.8468461218678594`*^9, 
   3.846846122263889*^9}, {3.8468461651820526`*^9, 3.8468461962369614`*^9}, {
   3.8468462277838097`*^9, 3.8468462281858234`*^9}, {3.846846277123144*^9, 
   3.846846277559677*^9}, {3.8468463084458933`*^9, 3.84684630888103*^9}, {
   3.84684634195434*^9, 3.846846342525428*^9}, {3.846846372621909*^9, 
   3.8468463731648135`*^9}, {3.8468464147153444`*^9, 3.846846417137335*^9}, {
   3.8468464492196875`*^9, 3.8468465078554893`*^9}, 3.846846545620405*^9, 
   3.8468465831183376`*^9, {3.847168350628271*^9, 3.847168356873187*^9}, {
   3.847168421581848*^9, 3.84716842325585*^9}, {3.8471684666598234`*^9, 
   3.8471684965488424`*^9}, {3.847168532728888*^9, 3.847168534785991*^9}, {
   3.8471685690342646`*^9, 3.847168569464798*^9}, 3.8471687036475515`*^9, {
   3.847168754402199*^9, 3.84716875478022*^9}, {3.847168795384446*^9, 
   3.8471687967097855`*^9}, {3.8471688552194343`*^9, 3.847168862161374*^9}, 
   3.8471818830135994`*^9, {3.847181954726035*^9, 3.8471819554131203`*^9}, {
   3.8471820020222545`*^9, 3.8471820024534235`*^9}, {3.8471820561555595`*^9, 
   3.847182056837702*^9}, {3.8471822238978186`*^9, 3.847182230085563*^9}, {
   3.84718228831876*^9, 3.847182289354521*^9}, {3.8471823419303937`*^9, 
   3.8471823422775517`*^9}, {3.8471823741229897`*^9, 
   3.8471823753188696`*^9}, {3.847182441142972*^9, 3.8471824480104837`*^9}, {
   3.847182510540641*^9, 3.847182511399679*^9}, {3.847182553783943*^9, 
   3.847182554184085*^9}, {3.8471826230179844`*^9, 3.8471826299118166`*^9}, {
   3.847182676413659*^9, 3.847182676811701*^9}, {3.8471827085581083`*^9, 
   3.847182717800353*^9}, {3.847183277543023*^9, 3.8471833042939157`*^9}, {
   3.847183364775496*^9, 3.847183368420535*^9}, {3.8471857555482073`*^9, 
   3.847185759849716*^9}, {3.8471857988380156`*^9, 3.847185799498404*^9}, {
   3.8471862464220467`*^9, 3.847186247308177*^9}, {3.8471862990537233`*^9, 
   3.8471863005417523`*^9}, {3.847186349199266*^9, 3.8471863537260284`*^9}, {
   3.8471863997277765`*^9, 3.8471864028614235`*^9}, {3.847187199011094*^9, 
   3.847187208704338*^9}, {3.847187358284011*^9, 3.847187360383865*^9}, {
   3.8471878345448847`*^9, 3.8471878374724317`*^9}, {3.8471878934430323`*^9, 
   3.847187901599221*^9}, {3.847187988945199*^9, 3.8471879894877634`*^9}, {
   3.8471880239050446`*^9, 3.847188024367765*^9}, {3.847188066721484*^9, 
   3.8471880671798053`*^9}, {3.8477743115920515`*^9, 
   3.8477743456859703`*^9}, {3.8477743851640415`*^9, 
   3.8477744358321185`*^9}, {3.847775078299969*^9, 3.8477751140288024`*^9}, {
   3.8477751456473293`*^9, 3.847775203868208*^9}, {3.847776002245963*^9, 
   3.8477760078704586`*^9}, 3.847776050652022*^9, 3.8477761899666224`*^9, {
   3.8477762284476495`*^9, 3.8477762297116504`*^9}, {3.8477765596949377`*^9, 
   3.8477765663370333`*^9}, {3.8477765976210856`*^9, 3.847776599199218*^9}, {
   3.847776655249057*^9, 3.847776657037112*^9}, {3.8477766981179156`*^9, 
   3.847776698516111*^9}, {3.847776730498355*^9, 3.8477767309613485`*^9}, {
   3.847776768711695*^9, 3.847776769041966*^9}, {3.847776803954246*^9, 
   3.8477768065305815`*^9}, {3.8477768376668515`*^9, 
   3.8477768381470375`*^9}, {3.8477768707279167`*^9, 
   3.8477768717026453`*^9}, {3.847776921764016*^9, 3.847776922163028*^9}, {
   3.847776952344473*^9, 3.847776952788228*^9}, {3.847776985364601*^9, 
   3.847776985780669*^9}, {3.8477866794303136`*^9, 3.84778667984599*^9}, {
   3.8477873141278243`*^9, 3.8477873160424194`*^9}, {3.850105326454054*^9, 
   3.8501053302487507`*^9}, {3.850105361976582*^9, 
   3.850105405900412*^9}},ExpressionUUID->"f4b6e96d-f4ef-413f-a74d-\
f4dd88d72d43"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"resol3", "[", "\[Zeta]10_", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\[Mu]dotSB1", ",", "\[Mu]dotSB2", ",", "YdotSB12", ",", "deY", ",", 
        "de\[Zeta]1", ",", "de\[Mu]", ",", "sol", ",", "ttilde", ",", "tmax", 
        ",", "Ttilde", ",", "Yb", ",", "\[Mu]b", ",", "\[Zeta]1b", ",", "Yf", 
        ",", "\[Mu]f", ",", "\[Zeta]1f", ",", "\[Sigma]", ",", "x", ",", "X", 
        ",", "e"}], "}"}], ",", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{"resol4", "[", "horizonguess_", "]"}], ":=", 
        RowBox[{"Module", "[", 
         RowBox[{
          RowBox[{"{", "Tendokr", "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"resol5", "[", "horizon_", "]"}], ":=", 
            RowBox[{"Module", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
               "\[Mu]dotR1", ",", "\[Mu]dotR2", ",", "YdotR12", ",", "deY", 
                ",", "de\[Lambda]", ",", "de\[Mu]", ",", "TX", ",", "tmax", 
                ",", "flagTend"}], "}"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{
                RowBox[{"\[Mu]dotSB1", "[", 
                 RowBox[{"\[Mu]_", ",", "y_", ",", "\[Zeta]1_"}], "]"}], "=", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}], " ", "\[Mu]"}],
                  " ", "-", 
                 RowBox[{"\[Beta]", "  ", "c1", " ", 
                  SuperscriptBox["y", 
                   RowBox[{
                    RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"\[Mu]", "-", 
                    RowBox[{"c1", " ", 
                    SuperscriptBox["y", 
                    RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], " ", 
                 "-", " ", 
                 RowBox[{"\[Phi]", " ", 
                  RowBox[{"(", 
                   RowBox[{"cx", "+", "\[Zeta]1"}], ")"}]}]}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"\[Mu]dotSB2", "[", 
                 RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}], " ", "\[Mu]"}],
                  " ", "-", 
                 RowBox[{"\[Beta]", " ", "c1", " ", 
                  SuperscriptBox["y", 
                   RowBox[{
                    RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"\[Mu]", "-", 
                    RowBox[{"c1", " ", 
                    SuperscriptBox["y", 
                    RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], "-", 
                 "  ", 
                 RowBox[{"\[Gamma]", 
                  SuperscriptBox["\[Phi]", 
                   RowBox[{"1", "-", 
                    RowBox[{"1", "/", "\[Epsilon]"}]}]], "  ", 
                  SuperscriptBox["y", 
                   RowBox[{
                    RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}]}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"YdotSB12", "[", 
                 RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", " ", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"\[Mu]", "-", 
                    RowBox[{"c1", " ", 
                    SuperscriptBox["y", 
                    RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}], "-", 
                 RowBox[{"\[Delta]", " ", "y"}]}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"deY", "=", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Y", "'"}], "[", "t", "]"}], "\[Equal]", 
                 RowBox[{"-", 
                  RowBox[{"YdotSB12", "[", 
                   RowBox[{
                    RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
                    RowBox[{"Y", "[", "t", "]"}]}], "]"}]}]}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"de\[Zeta]1", "=", 
                RowBox[{
                 RowBox[{
                  RowBox[{"\[Zeta]1", "'"}], "[", "t", "]"}], "\[Equal]", 
                 RowBox[{
                  RowBox[{"-", "\[Rho]"}], " ", 
                  RowBox[{"\[Zeta]1", "[", "t", "]"}]}]}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"de\[Mu]", "=", 
                RowBox[{
                 RowBox[{
                  RowBox[{"\[Mu]", "'"}], "[", "t", "]"}], "\[Equal]", 
                 RowBox[{"-", 
                  RowBox[{"Piecewise", "[", 
                   RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"\[Mu]dotSB1", "[", 
                    RowBox[{
                    RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
                    RowBox[{"Y", "[", "t", "]"}], ",", 
                    RowBox[{"\[Zeta]1", "[", "t", "]"}]}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"Y", "[", "t", "]"}], "\[IndentingNewLine]", 
                    "\[LessEqual]", 
                    RowBox[{
                    FractionBox["1", "\[Phi]"], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox["\[Gamma]", 
                    RowBox[{"cx", "+", "\[Tau]tilde"}]], ")"}], 
                    "\[Epsilon]"]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"\[Mu]dotSB2", "[", 
                    RowBox[{
                    RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
                    RowBox[{"Y", "[", "t", "]"}]}], "]"}], ",", 
                    RowBox[{
                    RowBox[{
                    FractionBox["1", "\[Phi]"], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox["\[Gamma]", 
                    RowBox[{"cx", "+", "\[Tau]tilde"}]], ")"}], 
                    "\[Epsilon]"]}], " ", "<", 
                    RowBox[{"Y", "[", "t", "]"}]}]}], "}"}]}], 
                    "\[IndentingNewLine]", "}"}], "]"}]}]}]}], ";", 
               "\[IndentingNewLine]", "\[IndentingNewLine]", 
               RowBox[{"sol", "=", 
                RowBox[{"NDSolve", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"deY", ",", "de\[Mu]", ",", "de\[Zeta]1", ",", 
                    RowBox[{
                    RowBox[{"Y", "[", "0", "]"}], "\[Equal]", 
                    RowBox[{"Ystar", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", " ", 
                    SuperscriptBox["10", 
                    RowBox[{"-", "3"}]]}], ")"}]}]}], ",", 
                    RowBox[{
                    RowBox[{"\[Mu]", "[", "0", "]"}], "\[Equal]", 
                    RowBox[{"\[Mu]star", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SuperscriptBox["10", 
                    RowBox[{"-", "3"}]]}], ")"}]}]}], ",", 
                    RowBox[{
                    RowBox[{"\[Zeta]1", "[", "0", "]"}], "\[Equal]", 
                    RowBox[{"\[Zeta]10", " ", 
                    RowBox[{"Exp", "[", 
                    RowBox[{"\[Rho]", " ", "horizon"}], "]"}]}]}]}], "}"}], 
                  ",", 
                  RowBox[{"{", 
                   RowBox[{"Y", ",", "\[Mu]", ",", "\[Zeta]1"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"t", ",", "0", ",", "horizon"}], "}"}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"Method", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{
                    "\"\<EventLocator\>\"", ",", "\[IndentingNewLine]", 
                    RowBox[{"\"\<Event\>\"", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Y", "[", "t", "]"}], "-", 
                    RowBox[{
                    FractionBox["1", "\[Phi]"], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox["\[Gamma]", 
                    RowBox[{"cx", "+", "\[Tau]tilde"}]], ")"}], 
                    "\[Epsilon]"]}]}], ",", 
                    RowBox[{
                    RowBox[{"Y", "[", "t", "]"}], "-", "Y0"}], ",", 
                    RowBox[{"t", "-", "horizon"}]}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"\"\<EventAction\>\"", "\[RuleDelayed]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"ttilde", "=", 
                    RowBox[{"horizon", "-", "t"}]}], ",", 
                    RowBox[{"Throw", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"flagTend", "=", "0"}], ",", 
                    RowBox[{"tmax", "=", 
                    RowBox[{"horizon", "-", "t"}]}]}], "}"}], ",", 
                    "\"\<StopIntegration\>\""}], "]"}], ",", 
                    RowBox[{"Throw", "[", 
                    RowBox[{
                    RowBox[{"flagTend", "=", "1"}], ",", 
                    "\"\<StopIntegration\>\""}], "]"}]}], "}"}]}]}], 
                    "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
               RowBox[{"(*", " ", 
                RowBox[{
                 RowBox[{"comment", "/", "uncomment"}], " ", "the", " ", 
                 "following", " ", "two", " ", 
                 RowBox[{"If", "[", "]"}], " ", "to", " ", 
                 RowBox[{"hide", "/", "show"}], " ", "the", " ", "iteration", 
                 " ", "on", " ", "the", " ", "horizon", " ", "for", " ", 
                 "each", " ", "guessed", " ", "value", " ", "of", " ", 
                 "\[Zeta]1", 
                 RowBox[{"(", "0", ")"}]}], " ", "*)"}], 
               "\[IndentingNewLine]", 
               RowBox[{"(*", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{"flagTend", "\[Equal]", "1"}], ",", 
                   RowBox[{"Print", "[", 
                    RowBox[{
                    "\"\<horizon too short, Tend =\>\"", ",", "horizon", ",", 
                    "\"\< implying flagTend=\>\"", ",", "flagTend"}], "]"}]}],
                   "]"}], ";", "\[IndentingNewLine]", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{"flagTend", "==", "0"}], ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"TX", "=", 
                    RowBox[{"ttilde", "-", "tmax"}]}], ",", 
                    RowBox[{"Print", "[", 
                    RowBox[{
                    "\"\<horizon sufficiently high, Tend =\>\"", ",", 
                    "horizon", ",", "\"\< implying tmax =\>\"", ",", "tmax", 
                    ",", "\"\<, and TX =\>\"", ",", "TX"}], "]"}]}], "}"}]}], 
                  "]"}], ";"}], "\[IndentingNewLine]", "*)"}], 
               "\[IndentingNewLine]", "flagTend"}]}], "]"}]}], ";", " ", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{
             "module", " ", "resol5", " ", "solves", " ", "the", " ", 
              "dynamic", " ", "system", " ", "backwards"}], ",", " ", 
             RowBox[{
              RowBox[{"and", " ", "gives", " ", "flagTend"}], "=", 
              RowBox[{
              "1", " ", "if", " ", "the", " ", "horizon", " ", "is", " ", 
               "suffciently", " ", "long"}]}], ",", " ", 
             RowBox[{
              RowBox[{"or", " ", "flagTend"}], "=", 
              RowBox[{
              "0", " ", "if", " ", "it", " ", "is", " ", "too", " ", 
               "short"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"resol5", "[", "horizonguess", "]"}], "\[Equal]", "1"}],
              ",", 
             RowBox[{"For", "[", 
              RowBox[{
               RowBox[{"i", "=", "horizonguess"}], ",", 
               RowBox[{"i", "<", "horizonUbound"}], ",", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"resol5", "[", "i", "]"}], "\[Equal]", "0"}], ",", 
                 RowBox[{"Break", "[", "]"}]}], "]"}], ",", 
               RowBox[{"i", "=", 
                RowBox[{"i", "+", "step"}]}]}], "]"}], ",", 
             RowBox[{"For", "[", 
              RowBox[{
               RowBox[{"i", "=", "horizonguess"}], ",", 
               RowBox[{"i", ">", "horizonLbound"}], ",", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"resol5", "[", "i", "]"}], "\[Equal]", "1"}], ",", 
                 RowBox[{"Break", "[", "]"}]}], "]"}], ",", 
               RowBox[{"i", "=", 
                RowBox[{"i", "-", "step"}]}]}], "]"}]}], "]"}], ";", " ", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{
             "depending", " ", "on", " ", "the", " ", "initial", " ", "tmax", 
              " ", "make", " ", "a", " ", "loop", " ", "on", " ", "Tend", " ",
               "until", " ", "it", " ", "changes", " ", "from", " ", "too", 
              " ", "short", " ", "of", " ", "an", " ", "horizon", " ", "to", 
              " ", "a", " ", "sufficently", " ", "long", " ", "one"}], ",", 
             " ", 
             RowBox[{
             "or", " ", "vice", " ", "versa", " ", "from", " ", "a", " ", 
              "sufficently", " ", "long", " ", "one", " ", "to", " ", "a", 
              " ", "tooshort", " ", "one"}]}], " ", "*)"}], " ", 
           "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"resol5", "[", "i", "]"}], "\[Equal]", "0"}], ",", 
             RowBox[{"Tendokr", "=", "i"}], ",", 
             RowBox[{"Tendokr", "=", 
              RowBox[{"i", "+", "step"}]}]}], "]"}], ";", " ", 
           RowBox[{"(*", " ", 
            RowBox[{
            "stock", " ", "Tend", " ", "that", " ", "works", " ", "to", " ", 
             "use", " ", "it", " ", "out", " ", "of", " ", "the", " ", 
             "loop"}], " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{"comment", "/", "uncomment"}], " ", "the", " ", 
             "following", " ", "seven", " ", 
             RowBox[{"Print", "[", "]"}], " ", "to", " ", 
             RowBox[{"hide", "/", "show"}], " ", "the", " ", "iteration", " ",
              "process"}], " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"(*", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Print", "[", 
              RowBox[{
              "\"\<for \[Zeta]1(0)=\>\"", ",", "\[Zeta]10", ",", 
               "\"\<, we use Tend=\>\"", ",", "Tendokr"}], "]"}], ";"}], 
            "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"{", "Tendokr", "}"}]}]}], "]"}]}], ";", " ", 
       RowBox[{"(*", " ", 
        RowBox[{
        "module", " ", "resol4", " ", "determines", " ", "the", " ", "best", 
         " ", "horizon", " ", "for", " ", "backward", " ", "shooting"}], " ", 
        "*)"}], "\[IndentingNewLine]", 
       RowBox[{"(*", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{"\"\<old horizonguess=\>\"", ",", "horizonguess"}], "]"}], 
         ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"Tend", "=", 
        RowBox[{
         RowBox[{"resol4", "[", "horizonguess", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"horizonguess", "=", "Tend"}], ";", "\n", 
       RowBox[{"(*", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{"\"\<new horizonguess=\>\"", ",", "horizonguess"}], "]"}], 
         ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[Mu]dotSB1", "[", 
         RowBox[{"\[Mu]_", ",", "y_", ",", "\[Zeta]1_"}], "]"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}], " ", "\[Mu]"}], " ", 
         "-", 
         RowBox[{"\[Beta]", "  ", "c1", " ", 
          SuperscriptBox["y", 
           RowBox[{
            RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Mu]", "-", 
             RowBox[{"c1", " ", 
              SuperscriptBox["y", 
               RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], " ", "-", 
         " ", 
         RowBox[{"\[Phi]", " ", 
          RowBox[{"(", 
           RowBox[{"cx", "+", "\[Zeta]1"}], ")"}]}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[Mu]dotSB2", "[", 
         RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}], " ", "\[Mu]"}], " ", 
         "-", 
         RowBox[{"\[Beta]", " ", "c1", " ", 
          SuperscriptBox["y", 
           RowBox[{
            RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Mu]", "-", 
             RowBox[{"c1", " ", 
              SuperscriptBox["y", 
               RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], "-", "  ", 
         RowBox[{"\[Gamma]", 
          SuperscriptBox["\[Phi]", 
           RowBox[{"1", "-", 
            RowBox[{"1", "/", "\[Epsilon]"}]}]], "  ", 
          SuperscriptBox["y", 
           RowBox[{
            RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"YdotSB12", "[", 
         RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Mu]", "-", 
            RowBox[{"c1", " ", 
             SuperscriptBox["y", 
              RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}], "-", 
         RowBox[{"\[Delta]", " ", "y"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"deY", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Y", "'"}], "[", "t", "]"}], "\[Equal]", 
         RowBox[{"-", 
          RowBox[{"YdotSB12", "[", 
           RowBox[{
            RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
            RowBox[{"Y", "[", "t", "]"}]}], "]"}]}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"de\[Zeta]1", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Zeta]1", "'"}], "[", "t", "]"}], "\[Equal]", 
         RowBox[{
          RowBox[{"-", "\[Rho]"}], " ", 
          RowBox[{"\[Zeta]1", "[", "t", "]"}]}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"de\[Mu]", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Mu]", "'"}], "[", "t", "]"}], "\[Equal]", 
         RowBox[{"-", 
          RowBox[{"Piecewise", "[", 
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\[Mu]dotSB1", "[", 
                RowBox[{
                 RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
                 RowBox[{"Y", "[", "t", "]"}], ",", 
                 RowBox[{"\[Zeta]1", "[", "t", "]"}]}], "]"}], ",", 
               RowBox[{
                RowBox[{"Y", "[", "t", "]"}], "\[IndentingNewLine]", 
                "\[LessEqual]", 
                RowBox[{
                 FractionBox["1", "\[Phi]"], 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox["\[Gamma]", 
                    RowBox[{"cx", "+", "\[Tau]tilde"}]], ")"}], 
                  "\[Epsilon]"]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\[Mu]dotSB2", "[", 
                RowBox[{
                 RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
                 RowBox[{"Y", "[", "t", "]"}]}], "]"}], ",", 
               RowBox[{
                RowBox[{
                 FractionBox["1", "\[Phi]"], 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox["\[Gamma]", 
                    RowBox[{"cx", "+", "\[Tau]tilde"}]], ")"}], 
                  "\[Epsilon]"]}], " ", "<", 
                RowBox[{"Y", "[", "t", "]"}]}]}], "}"}]}], 
            "\[IndentingNewLine]", "}"}], "]"}]}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"sol", "=", 
        RowBox[{"NDSolve", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"deY", ",", "de\[Mu]", ",", "de\[Zeta]1", ",", 
            RowBox[{
             RowBox[{"Y", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Ystar", 
              RowBox[{"(", 
               RowBox[{"1", "-", " ", 
                SuperscriptBox["10", 
                 RowBox[{"-", "3"}]]}], ")"}]}]}], ",", 
            RowBox[{
             RowBox[{"\[Mu]", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"\[Mu]star", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                SuperscriptBox["10", 
                 RowBox[{"-", "3"}]]}], ")"}]}]}], ",", 
            RowBox[{
             RowBox[{"\[Zeta]1", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"\[Zeta]10", " ", 
              RowBox[{"Exp", "[", 
               RowBox[{"\[Rho]", " ", "Tend"}], "]"}]}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Y", ",", "\[Mu]", ",", "\[Zeta]1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", "Tend"}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Method", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"\"\<EventLocator\>\"", ",", "\[IndentingNewLine]", 
             RowBox[{"\"\<Event\>\"", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"Y", "[", "t", "]"}], "-", 
                 RowBox[{
                  FractionBox["1", "\[Phi]"], 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox["\[Gamma]", 
                    RowBox[{"cx", "+", "\[Tau]tilde"}]], ")"}], 
                   "\[Epsilon]"]}]}], ",", 
                RowBox[{
                 RowBox[{"Y", "[", "t", "]"}], "-", "Y0"}]}], "}"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"\"\<EventAction\>\"", "\[RuleDelayed]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"ttilde", "=", 
                 RowBox[{"Tend", "-", "t"}]}], ",", 
                RowBox[{"tmax", "=", 
                 RowBox[{"Tend", "-", "t"}]}]}], "}"}]}]}], "}"}]}]}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Ttilde", "=", 
        RowBox[{"ttilde", "-", "tmax"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{
          "\"\<for \[Zeta]1(0)=\>\"", ",", "\[Zeta]10", ",", 
           "\"\<, the backward shooting horizon approximation is tmax =\>\"", 
           ",", "tmax"}], "]"}], ";"}], "\[IndentingNewLine]", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Yb", "[", "t_", "]"}], "=", 
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"Y", "[", "t", "]"}], "/.", 
          RowBox[{"sol", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[Mu]b", "[", "t_", "]"}], "=", 
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"\[Mu]", "[", "t", "]"}], "/.", 
          RowBox[{"sol", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[Zeta]1b", "[", "t_", "]"}], "=", 
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"\[Zeta]1", "[", "t", "]"}], "/.", 
          RowBox[{"sol", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Yf", "[", "t_", "]"}], "=", 
        RowBox[{"Yb", "[", 
         RowBox[{"Tend", "-", "tmax", "-", "t"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[Mu]f", "[", "t_", "]"}], "=", 
        RowBox[{"\[Mu]b", "[", 
         RowBox[{"Tend", "-", "tmax", "-", "t"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[Zeta]1f", "[", "t_", "]"}], "=", 
        RowBox[{"\[Zeta]1b", "[", 
         RowBox[{"Tend", "-", "tmax", "-", "t"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[Sigma]", "[", "t_", "]"}], "=", 
        RowBox[{"Piecewise", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"\[Zeta]1f", "[", " ", "t", "]"}], "-", "\[Tau]tilde", 
              "+", 
              RowBox[{"\[Beta]", " ", "c1", " ", 
               SuperscriptBox[
                RowBox[{"Yf", "[", "t", "]"}], 
                RowBox[{
                 RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"\[Mu]f", "[", "t", "]"}], "-", 
                  RowBox[{"c1", " ", 
                   SuperscriptBox[
                    RowBox[{"Yf", "[", "t", "]"}], 
                    RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", 
                RowBox[{"(", 
                 RowBox[{"\[Phi]", " ", "c2"}], ")"}]}]}]}], ",", 
             RowBox[{"0", "\[LessEqual]", "t", "<", "Ttilde"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\[Beta]", " ", "c1", " ", 
              SuperscriptBox[
               RowBox[{"Yf", "[", "t", "]"}], 
               RowBox[{
                RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Mu]f", "[", "t", "]"}], "-", 
                 RowBox[{"c1", " ", 
                  SuperscriptBox[
                   RowBox[{"Yf", "[", "t", "]"}], 
                   RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", 
               RowBox[{"(", 
                RowBox[{"\[Phi]", " ", "c2"}], ")"}]}]}], ",", 
             RowBox[{"t", ">", "Ttilde"}]}], "}"}]}], "}"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"x", "[", "t_", "]"}], "=", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "/", 
            RowBox[{"(", 
             RowBox[{"cx", "+", "\[Tau]tilde"}], ")"}]}], ")"}], 
          "\[Epsilon]"], "-", 
         RowBox[{"\[Phi]", " ", 
          RowBox[{"Yf", "[", "t", "]"}]}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"X", "=", 
        RowBox[{"NIntegrate", "[", 
         RowBox[{
          RowBox[{"x", "[", "t", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", "Ttilde"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{
          "\"\<for \[Zeta]1(0)=\>\"", ",", "\[Zeta]10", ",", 
           "\"\<, cumulative carbon emissions are \>\"", ",", 
           RowBox[{"100", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"X", "/", "Xbar"}], "-", "1"}], ")"}]}], ",", 
           "\"\<% away from the carbon budget\>\""}], "]"}], ";"}], 
        "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"e", "[", "t_", "]"}], "=", 
        RowBox[{"Piecewise", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"x", "[", "t", "]"}], "+", 
              RowBox[{"\[Phi]", " ", 
               RowBox[{"Yf", "[", "t", "]"}]}]}], ",", 
             RowBox[{"t", "<", "Ttilde"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\[Phi]", " ", 
              RowBox[{"Yf", "[", "t", "]"}]}], ",", 
             RowBox[{"t", "\[GreaterEqual]", "Ttilde"}]}], "}"}]}], "}"}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"X", ",", 
         RowBox[{"\[Mu]f", "[", "t", "]"}], ",", 
         RowBox[{"Yf", "[", "t", "]"}], ",", 
         RowBox[{"\[Zeta]1f", "[", "t", "]"}], ",", 
         RowBox[{"\[Sigma]", "[", "t", "]"}], ",", 
         RowBox[{"x", "[", "t", "]"}], ",", 
         RowBox[{"e", "[", "t", "]"}], ",", "Ttilde", ",", "Tend"}], 
        "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "module", " ", "resol3", " ", "gives", " ", "trajectories", " ", "with", 
    " ", "the", " ", "best", " ", "horizon", " ", "for", " ", "an", " ", 
    "arbitrary", " ", "initial", " ", "value", " ", "of", " ", "carbon", " ", 
    "\[Zeta]1", 
    RowBox[{"(", "0", ")"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Zeta]1grid", "[", 
    RowBox[{"\[Zeta]1low_", ",", "\[Zeta]1high_", ",", "n_"}], "]"}], ":=", 
   " ", 
   RowBox[{"Range", "[", 
    RowBox[{"\[Zeta]1low", ",", "\[Zeta]1high", ",", 
     FractionBox[
      RowBox[{"\[Zeta]1high", "-", "\[Zeta]1low"}], 
      RowBox[{"n", "-", "1"}]]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"iterationModule", "[", "vector_", "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\[Zeta]1low", ",", "\[Zeta]1high", ",", "grid", ",", "calculatedX", ",",
       "distanceFromX", ",", "closestElement", ",", "new\[Zeta]1low", ",", 
      "new\[Zeta]1high", ",", "newGridBoundaries", ",", "newVector"}], "}"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Zeta]1low", " ", "=", " ", 
      RowBox[{"vector", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"\[Zeta]1high", " ", "=", " ", 
      RowBox[{"vector", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"(*", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
       "Print", "[", 
        "\"\<************* interation on interval for \[Zeta]1(0) \
*************\>\"", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{
        "\"\<Change interval for the search of the \[Zeta]1(0) to \>\"", ",", 
         RowBox[{"{", 
          RowBox[{"\[Zeta]1low", ",", "\[Zeta]1high"}], "}"}]}], "]"}], ";"}],
       "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"grid", " ", "=", " ", 
      RowBox[{"\[Zeta]1grid", "[", 
       RowBox[{"\[Zeta]1low", ",", "\[Zeta]1high", ",", "n"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"calculatedX", " ", "=", " ", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{"resol3", ",", "grid"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"distanceFromX", " ", "=", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"calculatedX", " ", "-", " ", "Xbar"}], ")"}], "2"]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"closestElement", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"Take", "[", 
         RowBox[{"#", ",", 
          RowBox[{"Ordering", "[", 
           RowBox[{
            RowBox[{"Last", "/@", "#"}], ",", "1"}], "]"}]}], "]"}], "&"}], 
       "@", 
       RowBox[{"Thread", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"grid", ",", "distanceFromX"}], "}"}], ",", "List"}], 
        "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"new\[Zeta]1low", " ", "=", " ", 
      RowBox[{
       RowBox[{"closestElement", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"closestElement", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "\[Zeta]1low"}], 
          ")"}], " ", ".5"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"new\[Zeta]1high", " ", "=", "  ", 
      RowBox[{
       RowBox[{"closestElement", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\[Zeta]1high", "-", 
           RowBox[{"closestElement", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ")"}], " ", ".5"}], 
        ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"newGridBoundaries", "=", " ", 
      RowBox[{"{", 
       RowBox[{"new\[Zeta]1low", ",", "new\[Zeta]1high"}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"newVector", " ", "=", " ", 
      RowBox[{"{", 
       RowBox[{"newGridBoundaries", ",", "closestElement"}], "}"}]}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"iterate", "[", 
   RowBox[{"\[Zeta]1low_", ",", "\[Zeta]1high_", ",", "nbiter_"}], "]"}], ":=",
   " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "res", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"res", " ", "=", 
      RowBox[{"Nest", "[", 
       RowBox[{"iterationModule", ",", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"\[Zeta]1low", ",", "\[Zeta]1high"}], "}"}], "}"}], ",", 
        "nbiter"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "modules", " ", "iterationmodule", " ", "and", " ", "iterate", " ", 
       "determine", " ", "the", " ", "initial", " ", "value", " ", "of", " ", 
       "carbon", " ", "\[Zeta]1", 
       RowBox[{"(", "0", ")"}], " ", "complying", " ", "with", " ", "the", 
       " ", "carbon", " ", "budget"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
     "Print", "[", 
      "\"\<*****************************************************************\>\
\"", "]"}], ";", 
     RowBox[{
     "Print", "[", 
      "\"\<************* report at the end of the interations on \[Zeta]1(0) \
*************\>\"", "]"}], ";", 
     RowBox[{
     "Print", "[", 
      "\"\<*****************************************************************\>\
\"", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<Initial grid boundaries for \[Zeta]1(0) = \>\"", ",", " ", 
       RowBox[{"{", 
        RowBox[{"\[Zeta]1Lbound", ",", "\[Zeta]1Hbound"}], "}"}]}], "]"}], 
     ";", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<Final grid boundaries = \>\"", ",", " ", 
       RowBox[{"res", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<\[Zeta]10 = \>\"", ",", " ", 
       RowBox[{"res", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "1", ",", "1"}], "]"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<Distance from Xbar = \>\"", ",", " ", 
       RowBox[{"res", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "res"}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Zeta]1low", " ", "=", "\[Zeta]1Lbound"}], ";", 
   RowBox[{"\[Zeta]1high", " ", "=", "\[Zeta]1Hbound"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"iterRes", " ", "=", 
   RowBox[{"iterate", "[", 
    RowBox[{"\[Zeta]1low", ",", "\[Zeta]1high", ",", "nbiter"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Zeta]10star", " ", "=", " ", 
    RowBox[{"iterRes", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "1", ",", "1"}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\n", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"ordre", " ", "des", " ", "variables", " ", "dans", " ", 
     RowBox[{"resol", " ", ":", " ", "X"}]}], ",", 
    RowBox[{"\[Mu]f", "[", "t", "]"}], ",", 
    RowBox[{"Yf", "[", "t", "]"}], ",", 
    RowBox[{"\[Zeta]1f", "[", "t", "]"}], ",", 
    RowBox[{"\[Sigma]", "[", "t", "]"}], ",", 
    RowBox[{"x", "[", "t", "]"}], ",", 
    RowBox[{"e", "[", "t", "]"}], ",", "Ttilde"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Xbarr", "=", 
   RowBox[{
    RowBox[{"resol3", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Mu]fr", "[", "t_", "]"}], " ", "=", 
   RowBox[{
    RowBox[{"resol3", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Yfr", "[", "t_", "]"}], " ", "=", 
   RowBox[{
    RowBox[{"resol3", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Zeta]1fr", "[", "t_", "]"}], " ", "=", 
   RowBox[{
    RowBox[{"resol3", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "4", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Sigma]r", "[", "t_", "]"}], " ", "=", 
   RowBox[{
    RowBox[{"resol3", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "5", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"xr", "[", "t_", "]"}], " ", "=", 
   RowBox[{
    RowBox[{"resol3", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "6", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"er", "[", "t_", "]"}], " ", "=", 
   RowBox[{
    RowBox[{"resol3", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "7", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ttilder", " ", "=", 
   RowBox[{
    RowBox[{"resol3", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "8", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tendr", " ", "=", 
   RowBox[{
    RowBox[{"resol3", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "9", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tfigr", "=", "Tendr"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Tendr = \>\"", ",", "Tendr"}], "]"}], ";"}], " "}]}], "Input",
 CellChangeTimes->{{3.826697519672256*^9, 3.826697580027843*^9}, {
   3.826697652352769*^9, 3.8266977554561663`*^9}, {3.8266978504549828`*^9, 
   3.8266980625810966`*^9}, {3.826698118584816*^9, 3.82669813683633*^9}, {
   3.82671708533427*^9, 3.82671711297655*^9}, {3.826717195616568*^9, 
   3.8267172879058332`*^9}, {3.8267173280925407`*^9, 3.826717333641568*^9}, {
   3.826717522821595*^9, 3.826717570299461*^9}, {3.826717680880262*^9, 
   3.826717744163055*^9}, {3.8267701655635223`*^9, 3.8267701859289627`*^9}, 
   3.8267827128347197`*^9, {3.8267828066452017`*^9, 3.82678282296761*^9}, {
   3.826783014197393*^9, 3.8267830193821793`*^9}, {3.826783053053761*^9, 
   3.8267831904013863`*^9}, {3.826783283921215*^9, 3.826783353695147*^9}, {
   3.826783398939056*^9, 3.826783468595071*^9}, {3.8267839748795967`*^9, 
   3.826784025944957*^9}, {3.826784076268982*^9, 3.826784099613714*^9}, {
   3.826802617136519*^9, 3.8268026181797743`*^9}, {3.826802651897314*^9, 
   3.82680267122538*^9}, {3.826802722431972*^9, 3.826802767546453*^9}, {
   3.826802800603544*^9, 3.826802830739423*^9}, {3.826802862078915*^9, 
   3.8268028915248327`*^9}, {3.8268029217129583`*^9, 3.826802922935287*^9}, {
   3.8325799020902243`*^9, 3.83257991082253*^9}, {3.83258017566625*^9, 
   3.832580177208193*^9}, {3.832580226339326*^9, 3.832580227036541*^9}, {
   3.832580278582456*^9, 3.8325804303569593`*^9}, {3.832580461030594*^9, 
   3.8325804766469593`*^9}, 3.832580591372081*^9, 3.8325816333865843`*^9, {
   3.832581693506543*^9, 3.83258169403688*^9}, {3.832581729792838*^9, 
   3.832581731973393*^9}, 3.8327608773441143`*^9, {3.832760912232373*^9, 
   3.832760957930429*^9}, {3.8327616436011877`*^9, 3.832761674425411*^9}, {
   3.83281481827204*^9, 3.832814824036419*^9}, {3.832814911489626*^9, 
   3.832814912218461*^9}, {3.832815028115548*^9, 3.8328150895946007`*^9}, 
   3.8328152122241592`*^9, 3.83281525241672*^9, {3.832815299537415*^9, 
   3.832815300150611*^9}, {3.8328219508123713`*^9, 3.8328219516773767`*^9}, {
   3.8328220020371017`*^9, 3.832822006343603*^9}, {3.832822042412553*^9, 
   3.832822043304326*^9}, {3.83282212518801*^9, 3.832822126103573*^9}, {
   3.832822167920742*^9, 3.832822179657393*^9}, {3.832822218391253*^9, 
   3.832822219290711*^9}, {3.832822250934577*^9, 3.832822253951581*^9}, 
   3.832822322940024*^9, {3.832822374068527*^9, 3.832822374897048*^9}, {
   3.8328224264429293`*^9, 3.8328224272685833`*^9}, {3.832822459102688*^9, 
   3.832822460137269*^9}, 3.832822508242244*^9, 3.8337133494149017`*^9, {
   3.8337133846093063`*^9, 3.833713386142579*^9}, {3.846168616840665*^9, 
   3.846168896852541*^9}, {3.846168932383956*^9, 3.8461690023694143`*^9}, {
   3.846169089428948*^9, 3.846169180556508*^9}, {3.8461692683686113`*^9, 
   3.846169350350443*^9}, {3.846169380378189*^9, 3.846169450908692*^9}, {
   3.8465644626160965`*^9, 3.8465645791262984`*^9}, {3.8465646186629257`*^9, 
   3.846564633874517*^9}, {3.846564664949559*^9, 3.8465647643150935`*^9}, {
   3.8465648836830063`*^9, 3.846564884603797*^9}, {3.846565181204013*^9, 
   3.8465652339227037`*^9}, {3.8465653002792697`*^9, 3.846565348791662*^9}, {
   3.8465653941292987`*^9, 3.846565534488723*^9}, {3.8465657634089823`*^9, 
   3.846565763831935*^9}, {3.846565817722123*^9, 3.8465658181477704`*^9}, {
   3.846565869733901*^9, 3.8465658796397505`*^9}, {3.846565922079465*^9, 
   3.846565975746462*^9}, {3.8465660412443304`*^9, 3.846566041672748*^9}, {
   3.8465660832935743`*^9, 3.846566083755465*^9}, {3.846566125150813*^9, 
   3.846566125620896*^9}, {3.8465661803508615`*^9, 3.846566181736549*^9}, {
   3.8465662246347404`*^9, 3.8465662250377464`*^9}, {3.8465662715772862`*^9, 
   3.8465662719762306`*^9}, {3.846566316131551*^9, 3.846566316542246*^9}, {
   3.846566369764449*^9, 3.846566371018426*^9}, {3.8465664146601253`*^9, 
   3.846566450868167*^9}, {3.8465664815575085`*^9, 3.846566482546114*^9}, {
   3.846566523558004*^9, 3.846566524219438*^9}, {3.846566564048211*^9, 
   3.8465665645473433`*^9}, {3.846566597287648*^9, 3.846566597731559*^9}, {
   3.846566654310875*^9, 3.8465666547324963`*^9}, {3.8465666960379333`*^9, 
   3.8465666972313366`*^9}, {3.8465667310701065`*^9, 3.846566731508182*^9}, 
   3.846566763357732*^9, {3.8465668273097878`*^9, 3.8465668564927425`*^9}, {
   3.846572142198427*^9, 3.8465721434379787`*^9}, {3.8465721954951954`*^9, 
   3.8465721959316025`*^9}, {3.8465722511116605`*^9, 3.846572251397266*^9}, {
   3.846572297723818*^9, 3.84657229810223*^9}, {3.846572344819878*^9, 
   3.8465723489396024`*^9}, {3.846572402676483*^9, 3.846572403596615*^9}, {
   3.846816887816596*^9, 3.846816907888953*^9}, {3.8468169798589993`*^9, 
   3.846816980656866*^9}, 3.8468170652502584`*^9, {3.8468171278631983`*^9, 
   3.8468171297001514`*^9}, {3.846817162308836*^9, 3.846817162677336*^9}, {
   3.846817199814546*^9, 3.846817205683964*^9}, {3.846817250389989*^9, 
   3.8468172547467213`*^9}, {3.846817317347084*^9, 3.8468173215464487`*^9}, {
   3.8468173560918417`*^9, 3.846817356498454*^9}, {3.84681741982694*^9, 
   3.8468174222333508`*^9}, {3.8468174588604684`*^9, 
   3.8468174654173975`*^9}, {3.846817497173332*^9, 3.846817497572523*^9}, {
   3.846817542156522*^9, 3.846817543737306*^9}, 3.846817613948851*^9, {
   3.846817652835613*^9, 3.8468176532845783`*^9}, {3.846817784883647*^9, 
   3.8468177896046*^9}, {3.8468178294456234`*^9, 3.8468178298116064`*^9}, {
   3.846840592748277*^9, 3.846840593469572*^9}, {3.84684072787004*^9, 
   3.8468407897975545`*^9}, {3.846840885581024*^9, 3.8468410480771875`*^9}, {
   3.846841113928362*^9, 3.846841148926806*^9}, {3.8468411953338594`*^9, 
   3.8468412622909083`*^9}, {3.846845522308096*^9, 3.8468455327493944`*^9}, {
   3.846845631440799*^9, 3.846845633055486*^9}, {3.8468457220817623`*^9, 
   3.846845722511705*^9}, {3.8468457728250885`*^9, 3.8468457732191086`*^9}, {
   3.846845825580093*^9, 3.846845830737089*^9}, {3.846845865993413*^9, 
   3.8468458663714824`*^9}, {3.846845901089572*^9, 3.846845928163545*^9}, 
   3.8468460182097683`*^9, {3.84684605586761*^9, 3.846846056274093*^9}, {
   3.8468460896448784`*^9, 3.8468460900870004`*^9}, {3.8468461218678594`*^9, 
   3.846846122263889*^9}, {3.8468461651820526`*^9, 3.8468461962369614`*^9}, {
   3.8468462277838097`*^9, 3.8468462281858234`*^9}, {3.846846277123144*^9, 
   3.846846277559677*^9}, {3.8468463084458933`*^9, 3.84684630888103*^9}, {
   3.84684634195434*^9, 3.846846342525428*^9}, {3.846846372621909*^9, 
   3.8468463731648135`*^9}, {3.8468464147153444`*^9, 3.846846417137335*^9}, {
   3.8468464492196875`*^9, 3.8468465078554893`*^9}, 3.846846545620405*^9, 
   3.8468465831183376`*^9, {3.847168350628271*^9, 3.847168356873187*^9}, {
   3.847168421581848*^9, 3.84716842325585*^9}, {3.8471684666598234`*^9, 
   3.8471684965488424`*^9}, {3.847168532728888*^9, 3.847168534785991*^9}, {
   3.8471685690342646`*^9, 3.847168569464798*^9}, 3.8471687036475515`*^9, {
   3.847168754402199*^9, 3.84716875478022*^9}, {3.847168795384446*^9, 
   3.8471687967097855`*^9}, {3.8471688552194343`*^9, 3.847168862161374*^9}, 
   3.8471818830135994`*^9, {3.847181954726035*^9, 3.8471819554131203`*^9}, {
   3.8471820020222545`*^9, 3.8471820024534235`*^9}, {3.8471820561555595`*^9, 
   3.847182056837702*^9}, {3.8471822238978186`*^9, 3.847182230085563*^9}, {
   3.84718228831876*^9, 3.847182289354521*^9}, {3.8471823419303937`*^9, 
   3.8471823422775517`*^9}, {3.8471823741229897`*^9, 
   3.8471823753188696`*^9}, {3.847182441142972*^9, 3.8471824480104837`*^9}, {
   3.847182510540641*^9, 3.847182511399679*^9}, {3.847182553783943*^9, 
   3.847182554184085*^9}, {3.8471826230179844`*^9, 3.8471826299118166`*^9}, {
   3.847182676413659*^9, 3.847182676811701*^9}, {3.8471827085581083`*^9, 
   3.847182717800353*^9}, {3.847183277543023*^9, 3.8471833042939157`*^9}, {
   3.847183364775496*^9, 3.847183368420535*^9}, {3.8471857555482073`*^9, 
   3.847185759849716*^9}, {3.8471857988380156`*^9, 3.847185799498404*^9}, {
   3.8471862464220467`*^9, 3.847186247308177*^9}, {3.8471862990537233`*^9, 
   3.8471863005417523`*^9}, {3.847186349199266*^9, 3.8471863537260284`*^9}, {
   3.8471863997277765`*^9, 3.8471864028614235`*^9}, {3.847187199011094*^9, 
   3.847187208704338*^9}, {3.847187358284011*^9, 3.847187360383865*^9}, {
   3.8471878345448847`*^9, 3.8471878374724317`*^9}, {3.8471878934430323`*^9, 
   3.847187901599221*^9}, {3.847187988945199*^9, 3.8471879894877634`*^9}, {
   3.8471880239050446`*^9, 3.847188024367765*^9}, {3.847188066721484*^9, 
   3.8471880671798053`*^9}, {3.8477743115920515`*^9, 
   3.8477743456859703`*^9}, {3.8477743851640415`*^9, 
   3.8477744358321185`*^9}, {3.847775078299969*^9, 3.8477751140288024`*^9}, {
   3.8477751456473293`*^9, 3.847775203868208*^9}, {3.847776002245963*^9, 
   3.8477760078704586`*^9}, 3.847776050652022*^9, 3.8477761899666224`*^9, {
   3.8477762284476495`*^9, 3.8477762297116504`*^9}, {3.8477765596949377`*^9, 
   3.8477765663370333`*^9}, {3.8477765976210856`*^9, 3.847776599199218*^9}, {
   3.847776655249057*^9, 3.847776657037112*^9}, {3.8477766981179156`*^9, 
   3.847776698516111*^9}, {3.847776730498355*^9, 3.8477767309613485`*^9}, {
   3.847776768711695*^9, 3.847776769041966*^9}, {3.847776803954246*^9, 
   3.8477768065305815`*^9}, {3.8477768376668515`*^9, 
   3.8477768381470375`*^9}, {3.8477768707279167`*^9, 
   3.8477768717026453`*^9}, {3.847776921764016*^9, 3.847776922163028*^9}, {
   3.847776952344473*^9, 3.847776952788228*^9}, {3.847776985364601*^9, 
   3.847776985780669*^9}, {3.8477866794303136`*^9, 3.84778667984599*^9}, {
   3.8477873141278243`*^9, 3.8477873160424194`*^9}, {3.850105326454054*^9, 
   3.8501053302487507`*^9}, {3.850105361976582*^9, 3.850105444809223*^9}, {
   3.850105493267907*^9, 3.850105570861257*^9}, {3.8501056049682693`*^9, 
   3.850105694101181*^9}, {3.850105801195753*^9, 3.850105820451789*^9}, {
   3.850105876796606*^9, 3.850105883319686*^9}, {3.8501059152518673`*^9, 
   3.850105945099156*^9}, {3.850105992189597*^9, 3.8501060106083193`*^9}, {
   3.850106984019567*^9, 3.8501074606819077`*^9}, {3.850107747929164*^9, 
   3.85010774847685*^9}, {3.850107798042137*^9, 3.850107803121195*^9}, {
   3.850108026649197*^9, 3.850108028286038*^9}, {3.850117296043398*^9, 
   3.850117313656767*^9}, {3.8501174364684153`*^9, 3.850117437382168*^9}, 
   3.8501175005447903`*^9, {3.850117786690126*^9, 3.8501177878714657`*^9}, {
   3.850117850199997*^9, 3.850117881155308*^9}, {3.850117924261302*^9, 
   3.8501179247257767`*^9}, 3.8501180308410263`*^9, {3.850118191339967*^9, 
   3.8501181953957148`*^9}, {3.850118261958592*^9, 3.850118267208168*^9}, {
   3.850118354543356*^9, 3.850118378814093*^9}, 3.8501184270043087`*^9, {
   3.850118547056405*^9, 3.850118547749132*^9}, {3.850118593641803*^9, 
   3.850118594979404*^9}, {3.850118779926646*^9, 3.8501187804614964`*^9}, {
   3.850118967621852*^9, 3.8501189691637487`*^9}, {3.8501203896566563`*^9, 
   3.850120393910861*^9}, {3.850120428829228*^9, 3.850120432194017*^9}, {
   3.8501218964182253`*^9, 3.8501219027879343`*^9}, {3.850122016841147*^9, 
   3.850122018507998*^9}, {3.850130325781818*^9, 3.850130326531234*^9}, 
   3.850130364976637*^9, 3.8501328096592503`*^9, {3.850565753213497*^9, 
   3.8505657597732773`*^9}, {3.850566133118896*^9, 3.850566134553422*^9}, {
   3.850566202839283*^9, 3.850566203964023*^9}, 3.850566320493857*^9, {
   3.8505663864921017`*^9, 3.8505663913505707`*^9}, {3.850566493437022*^9, 
   3.85056649405567*^9}, {3.8505666040549393`*^9, 3.850566604690517*^9}, {
   3.850566788178213*^9, 3.850566789011325*^9}, 3.85056692584616*^9, {
   3.8505670787285423`*^9, 3.85056708356719*^9}, {3.850634556521356*^9, 
   3.8506345573925047`*^9}, {3.850634643479121*^9, 3.850634648737617*^9}, 
   3.8506348462665453`*^9, {3.850635515110833*^9, 3.850635520519375*^9}, {
   3.850637091826789*^9, 3.850637092976797*^9}, {3.8506373537115507`*^9, 
   3.850637361855742*^9}, {3.850713994258932*^9, 3.850713994955185*^9}, {
   3.853823713784898*^9, 3.8538237142468367`*^9}, {3.85382375202861*^9, 
   3.85382376043927*^9}, 3.858227496509243*^9, {3.8582278577742333`*^9, 
   3.8582279282794137`*^9}, {3.858227974313033*^9, 3.858228040389363*^9}, {
   3.8582281319351835`*^9, 3.858228160807747*^9}, {3.8582283625504055`*^9, 
   3.858228363985511*^9}, {3.8599519565101156`*^9, 3.859952042027545*^9}, {
   3.8619431289438906`*^9, 3.861943235577038*^9}, {3.8619432872661486`*^9, 
   3.861943317267962*^9}, 3.8619433519555674`*^9, {3.8619433826386905`*^9, 
   3.861943410408448*^9}, 3.861943494080272*^9, 3.8619440518578863`*^9, {
   3.8619441022185926`*^9, 3.8619442362416162`*^9}, 3.8619445145883255`*^9, {
   3.861944560802436*^9, 3.861944562508604*^9}, {3.861944632442668*^9, 
   3.8619446326936707`*^9}, {3.861944978692236*^9, 3.8619449790847583`*^9}, {
   3.861945018310337*^9, 3.861945018615531*^9}, 3.861945110479547*^9, {
   3.861945358990551*^9, 3.861945364655095*^9}, {3.8619454540800734`*^9, 
   3.861945458326105*^9}, {3.861945533882346*^9, 3.861945539123248*^9}, {
   3.861945810921703*^9, 3.8619458649987974`*^9}, {3.8619460161621656`*^9, 
   3.861946021415315*^9}, {3.861946072891878*^9, 3.861946076504695*^9}, {
   3.861946195798752*^9, 3.8619461972726717`*^9}, {3.861946231764837*^9, 
   3.861946255854636*^9}, {3.8619463027368546`*^9, 3.861946330600951*^9}, {
   3.8619463974952097`*^9, 3.8619463979027147`*^9}, 3.86195806693227*^9, {
   3.86202075044013*^9, 3.862020751440282*^9}, {3.8620208735507517`*^9, 
   3.862020911300737*^9}, {3.862028637316986*^9, 3.862028638187077*^9}, {
   3.862040601978743*^9, 3.862040619326305*^9}, {3.862222680015929*^9, 
   3.862222683685667*^9}, {3.862222828863637*^9, 3.862222829426722*^9}, {
   3.862223749599848*^9, 3.862223766478297*^9}, {3.8625368025372887`*^9, 
   3.862536803133106*^9}, {3.862537104381864*^9, 3.862537114195113*^9}, {
   3.883640210144145*^9, 3.8836402230529976`*^9}, {3.912087778023878*^9, 
   3.9120879008848248`*^9}, {3.9120879410557275`*^9, 3.912087951680109*^9}, {
   3.912087987359564*^9, 3.912087995849004*^9}, {3.912088075027076*^9, 
   3.9120881352905693`*^9}, {3.9610676602252016`*^9, 
   3.9610676890634923`*^9}, {3.961067777930499*^9, 3.9610677816690264`*^9}, {
   3.9610678397304583`*^9, 3.9610678444261384`*^9}, {3.961067877233943*^9, 
   3.9610678776748695`*^9}, {3.961067968738448*^9, 3.9610680872064495`*^9}, {
   3.961068180328849*^9, 3.961068185593137*^9}, {3.9610703338999357`*^9, 
   3.9610703707059965`*^9}},
 CellLabel->
  "In[170]:=",ExpressionUUID->"fa574f5a-4ce5-43cc-8993-9339cde4b070"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Results", "Subsubsection",
 CellChangeTimes->{{3.82671736771594*^9, 3.8267173684937277`*^9}, {
   3.8267174196119003`*^9, 3.8267174418168287`*^9}, {3.826717473505698*^9, 
   3.8267174792248*^9}, {3.826717577501549*^9, 3.826717583726363*^9}, {
   3.8267719498299932`*^9, 3.826771959351379*^9}, {3.826772195405673*^9, 
   3.826772219749119*^9}, {3.826772644937233*^9, 3.826772647648567*^9}, {
   3.8267726881750402`*^9, 3.826772704871997*^9}, {3.826784140336855*^9, 
   3.8267841435152683`*^9}, {3.832579944253273*^9, 3.83258000074627*^9}, {
   3.832815099547038*^9, 3.8328151059241953`*^9}, {3.846565602987663*^9, 
   3.8465656255913486`*^9}, {3.8468412808010006`*^9, 3.846841325332939*^9}, {
   3.847186638418561*^9, 3.847186656007962*^9}, {3.847187015532448*^9, 
   3.8471870485183663`*^9}, {3.8477880098487716`*^9, 
   3.8477880459498525`*^9}, {3.8498649062690573`*^9, 3.849864952715361*^9}, {
   3.8498672877466173`*^9, 3.849867344292083*^9}, {3.849867594878901*^9, 
   3.849867636641458*^9}, {3.849867704453434*^9, 3.849867790696257*^9}, {
   3.849867826702322*^9, 3.849867862330508*^9}, 3.850105865181068*^9, {
   3.85010784167229*^9, 3.85010785756005*^9}, {3.9610880479686127`*^9, 
   3.9610880493751307`*^9}},ExpressionUUID->"efc6cc77-3582-4d75-8fd8-\
ec87e7352bb1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"\[Zeta]10star", " ", "<", "\[Tau]tilde"}], ",", 
    RowBox[{"Print", "[", 
     RowBox[{
     "\"\<[!!!] Problem with calibration: the case of a small tax holds only \
if \[Zeta]1(0)>\[Tau]tilde, here instead \[Zeta]1(0) = \>\"", ",", 
      "\[Zeta]10star", ",", "\"\< < \>\"", ",", "\[Tau]tilde", ",", 
      "\"\< = \[Tau]tilde\>\""}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Xbarr", "=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{"xr", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Ttilder"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<X =   \>\"", ",", "Xbarr", ",", "\"\<, that is \>\"", ",", 
    RowBox[{"100", "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Xbarr", "/", "Xbar"}], "-", "1"}], ")"}]}], ",", 
    "\"\<% away from target\>\""}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\<Tx =  \>\"", ",", "Ttilder", ",", 
    "\"\< to be compared to the optimum Tx=\>\"", ",", "TXo"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\"\<\[Zeta]10 =  \>\"", ",", 
     RowBox[{
      RowBox[{"\[Zeta]1fr", "[", "0", "]"}], "/", "\[Kappa]"}]}], "]"}], ";", 
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<Condition for the small tax case: \[Tau]tilde=\>\"", ",", " ", 
     "\[Tau]tilde", ",", "\"\<<\[Zeta]1(0)=\>\"", ",", 
     RowBox[{"\[Zeta]1fr", "[", "0", "]"}], ",", 
     "\"\< (the inequality should hold)\>\""}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<Condition for overshooting: \[Tau]tilde < \>\"", ",", 
    RowBox[{
     RowBox[{"\[Gamma]", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Phi]", " ", "Ystar"}], ")"}], 
       RowBox[{
        RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}], "-", "cx"}], ",", 
    "\"\< here the constant tax is \>\"", ",", "\[Tau]tilde", ",", 
    "\"\<, i.e. \>\"", ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Tau]tilde", "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Gamma]", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Phi]", " ", "Ystar"}], ")"}], 
            RowBox[{
             RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}], "-", "cx"}], ")"}]}],
        "-", "1"}], ")"}], "*", "100"}], ",", 
    "\"\<% higher than the threshold\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<Y(Tx) =  \>\"", ",", 
    RowBox[{"Yfr", "[", "Ttilder", "]"}], ",", "\"\<, i.e. \>\"", ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Yfr", "[", "Ttilder", "]"}], "-", "Ystar"}], ")"}], "/", 
     "Ystar"}], ",", "\"\<% higher than at steady state\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g\[Lambda]r", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Zeta]1fr", "[", "t", "]"}], "/", "\[Kappa]"}], ",", 
       RowBox[{"\[Tau]tilde", "/", "\[Kappa]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Ttilder"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{
       "t", ",", 
        "\"\<\[Tau]\[Degree](t),\!\(\*SubscriptBox[OverscriptBox[\(\[Zeta]\), \
\(~\)], \(1\)]\)(t),\!\(\*OverscriptBox[\(\[Tau]\), \(~\)]\)\>\""}], "}"}]}], 
     ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Red", ",", "DotDashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "DotDashed"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"val\[Lambda]r", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{
        RowBox[{"\[Zeta]1fr", "[", "t", "]"}], "/", "\[Kappa]"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Ttilder", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gyr", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Yfr", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigr"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<Y(t)\>\""}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "100"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Red", ",", "DotDashed"}], "}"}], "}"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"Ttilder", ",", 
           RowBox[{"{", 
            RowBox[{"Gray", ",", "Dotted"}], "}"}]}], "}"}], "}"}], ",", 
        RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"valYr", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"Yfr", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigr", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g\[Mu]r", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"\[Mu]fr", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigr"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{
       "t", ",", 
        "\"\<\[Mu](t),\!\(\*SubscriptBox[\(\[Mu]\), \(d\)]\)(t)\>\""}], 
       "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "3000"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Red", ",", "DotDashed"}], "}"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"val\[Mu]r", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"\[Mu]fr", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigr", ",", "0.5"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Sigma]LbDr", "[", "t_", "]"}], "=", 
   RowBox[{"\[Beta]", " ", "c1", " ", 
    SuperscriptBox[
     RowBox[{"Yfr", "[", "t", "]"}], 
     RowBox[{
      RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Mu]fr", "[", "t", "]"}], "-", 
       RowBox[{"c1", " ", 
        SuperscriptBox[
         RowBox[{"Yfr", "[", "t", "]"}], 
         RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"\[Phi]", " ", "c2"}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Sigma]Cvr", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"\[Zeta]1fr", "[", "t", "]"}], "-", "\[Tau]tilde"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"g\[Sigma]r", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Sigma]r", "[", "t", "]"}], ",", 
       RowBox[{"\[Sigma]LbDr", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigr"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<\[Sigma](t),\[CapitalSigma](t)\>\""}], "}"}]}], 
     ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Red", ",", "DotDashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"Dashing", "[", "Small", "]"}], ",", 
          RowBox[{"Opacity", "[", "0.5", "]"}]}], "}"}]}], "}"}]}]}], "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"val\[Sigma]Cvr", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"\[Sigma]Cvr", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Ttilder", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"val\[Sigma]LbDr", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"\[Sigma]LbDr", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigr", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gxr", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"xr", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Ttilder"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<x(t)\>\""}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", "DotDashed"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"valxr", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"xr", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Ttilder", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ger", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"er", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigr"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<e(t)\>\""}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "8000"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", "DotDashed"}], "}"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"Ttilder", ",", 
           RowBox[{"{", 
            RowBox[{"Gray", ",", "Dotted"}], "}"}]}], "}"}], "}"}], ",", 
        RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"valer", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"er", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigr", ",", "0.5"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gpr", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"\[Gamma]", " ", 
      SuperscriptBox[
       RowBox[{"er", "[", "t", "]"}], 
       RowBox[{
        RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigr"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<p(t)\>\""}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", "DotDashed"}], "}"}]}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"valpr", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", 
        RowBox[{"\[Gamma]", " ", 
         SuperscriptBox[
          RowBox[{"er", "[", "t", "]"}], 
          RowBox[{
           RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "Tfigr", ",", "1"}], "}"}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"g\[Lambda]O", ",", "g\[Lambda]s", ",", "g\[Lambda]r"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"g\[Sigma]s", ",", "g\[Sigma]r"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"gyO", ",", "gys", ",", "gyr"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"g\[Mu]O", ",", "g\[Mu]s", ",", "g\[Mu]r"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"gxO", ",", "gxs", ",", "gxr"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"geO", ",", "ges", ",", "ger"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"gpO", ",", "gps", ",", "gpr"}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.82671736771594*^9, 3.8267173684937277`*^9}, {
   3.8267174196119003`*^9, 3.8267174418168287`*^9}, {3.826717473505698*^9, 
   3.8267174792248*^9}, {3.826717577501549*^9, 3.826717583726363*^9}, {
   3.8267719498299932`*^9, 3.826771959351379*^9}, {3.826772195405673*^9, 
   3.826772219749119*^9}, {3.826772644937233*^9, 3.826772647648567*^9}, {
   3.8267726881750402`*^9, 3.826772704871997*^9}, {3.826784140336855*^9, 
   3.8267841435152683`*^9}, {3.832579944253273*^9, 3.83258000074627*^9}, {
   3.832815099547038*^9, 3.8328151059241953`*^9}, {3.846565602987663*^9, 
   3.8465656255913486`*^9}, {3.8468412808010006`*^9, 3.846841325332939*^9}, {
   3.847186638418561*^9, 3.847186656007962*^9}, {3.847187015532448*^9, 
   3.8471870485183663`*^9}, {3.8477880098487716`*^9, 
   3.8477880459498525`*^9}, {3.8498649062690573`*^9, 3.849864952715361*^9}, {
   3.8498672877466173`*^9, 3.849867344292083*^9}, {3.849867594878901*^9, 
   3.849867636641458*^9}, {3.849867704453434*^9, 3.849867790696257*^9}, {
   3.849867826702322*^9, 3.849867862330508*^9}, 3.850105865181068*^9, {
   3.85010784167229*^9, 3.850107907184001*^9}, 3.850107946711361*^9, {
   3.8501083195536547`*^9, 3.8501083410202723`*^9}, {3.8501163727458353`*^9, 
   3.850116381895081*^9}, {3.850117054503997*^9, 3.8501170573199368`*^9}, {
   3.850121283926754*^9, 3.850121308588373*^9}, {3.8502165988013983`*^9, 
   3.8502166425279713`*^9}, {3.850536513506754*^9, 3.850536591628188*^9}, {
   3.850536971513982*^9, 3.8505369735958967`*^9}, {3.850714043850625*^9, 
   3.850714076227064*^9}, {3.850719537027853*^9, 3.850719551108179*^9}, {
   3.8507197897043037`*^9, 3.850719852156006*^9}, 3.8507199057028227`*^9, {
   3.850719975120681*^9, 3.850719998767825*^9}, {3.850720102275738*^9, 
   3.850720106576281*^9}, {3.850720179776375*^9, 3.8507202241921988`*^9}, {
   3.850720364759445*^9, 3.850720414475939*^9}, {3.8507206011422243`*^9, 
   3.850720605249789*^9}, {3.850720711000575*^9, 3.85072071777558*^9}, 
   3.850720794649235*^9, {3.850790504232129*^9, 3.850790537051268*^9}, {
   3.850790616176455*^9, 3.850790651441403*^9}, {3.8507910642329473`*^9, 
   3.850791070790599*^9}, {3.850791102299078*^9, 3.850791154861442*^9}, {
   3.8507915467814207`*^9, 3.850791552838483*^9}, {3.851316313940834*^9, 
   3.851316325558346*^9}, {3.8513164420788813`*^9, 3.85131645344141*^9}, {
   3.851316491143879*^9, 3.851316498819013*^9}, {3.851316549199336*^9, 
   3.851316565751699*^9}, {3.853823174682309*^9, 3.8538231914117846`*^9}, {
   3.858228202282062*^9, 3.858228204263218*^9}, {3.861944255008463*^9, 
   3.8619443086508865`*^9}, {3.862028894853004*^9, 3.862028909314554*^9}, {
   3.862040819369711*^9, 3.862040857478991*^9}, {3.862040900907048*^9, 
   3.862040930728961*^9}, {3.8625368469866247`*^9, 3.862536872576274*^9}, {
   3.862537768611383*^9, 3.862537784935073*^9}, {3.86253804935133*^9, 
   3.862538069046899*^9}, {3.879687974541996*^9, 3.8796880049542723`*^9}, {
   3.884970492875517*^9, 3.884970494893075*^9}, 3.887254136363239*^9, {
   3.8872541715630245`*^9, 3.887254191899007*^9}, {3.8873423155555825`*^9, 
   3.887342352466436*^9}, {3.887342612688903*^9, 3.88734262028423*^9}, {
   3.887357819389908*^9, 3.887357919694726*^9}, {3.8907979177286463`*^9, 
   3.89079798253718*^9}, {3.890798204544876*^9, 3.890798205749732*^9}, {
   3.890798323585569*^9, 3.890798328776539*^9}, {3.890799325089489*^9, 
   3.890799329608459*^9}, {3.890809498392989*^9, 3.890809504891883*^9}, {
   3.89080975103589*^9, 3.8908097665336637`*^9}, {3.890811511509301*^9, 
   3.8908115470989943`*^9}, {3.89081161729924*^9, 3.890811650408271*^9}, {
   3.8908158328537083`*^9, 3.890815834631383*^9}, {3.8963232743607273`*^9, 
   3.896323298833982*^9}, {3.8963247953338633`*^9, 3.896324814913055*^9}, {
   3.896343034418293*^9, 3.896343048680978*^9}, {3.909906706689536*^9, 
   3.9099067148963747`*^9}, {3.9120882545502815`*^9, 3.912088259344348*^9}, {
   3.912088292330372*^9, 3.9120883585288267`*^9}, {3.912088401125211*^9, 
   3.9120885461534224`*^9}, {3.914907670145534*^9, 3.914907670999989*^9}, {
   3.914920490667694*^9, 3.914920491557213*^9}, {3.9208900922816277`*^9, 
   3.920890092680263*^9}, {3.93988869920748*^9, 3.939888699803471*^9}, {
   3.939889176525051*^9, 3.9398891838286133`*^9}, {3.943008506104542*^9, 
   3.9430085168338013`*^9}, {3.943072119778987*^9, 3.9430721322185926`*^9}, {
   3.943089251668784*^9, 3.943089260511591*^9}, {3.943089398897067*^9, 
   3.943089402220029*^9}, {3.9431064532028646`*^9, 3.943106491158277*^9}, {
   3.943106589346224*^9, 3.94310659158735*^9}, {3.9431066283826103`*^9, 
   3.943106757210929*^9}, 3.9431070316982403`*^9, {3.9431090384577007`*^9, 
   3.943109039529491*^9}, {3.9431097178851023`*^9, 3.9431097188969307`*^9}, {
   3.9431721343087597`*^9, 3.943172151948*^9}, {3.9431722523777018`*^9, 
   3.9431722532089*^9}, {3.9433267379039383`*^9, 3.94332677247768*^9}, {
   3.9433283933199863`*^9, 3.943328395862104*^9}, {3.943330002888945*^9, 
   3.9433300058719063`*^9}, {3.9608829201336265`*^9, 3.960882920169284*^9}, {
   3.961071093485001*^9, 3.961071107819367*^9}, {3.961071155108241*^9, 
   3.961071161323432*^9}, {3.9610711920319467`*^9, 3.961071205604562*^9}, {
   3.961083039556404*^9, 3.9610830401705728`*^9}, 3.9610873938918505`*^9},
 CellLabel->
  "In[188]:=",ExpressionUUID->"19e89736-0534-4274-a770-874b6ac10b47"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"subr", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"\[Sigma]r", "[", "t", "]"}], " ", "\[Phi]", " ", 
    RowBox[{"Yfr", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"taxr", "[", "t_", "]"}], "=", 
    RowBox[{"\[Tau]tilde", "  ", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"xr", "[", "t", "]"}], ",", 
          RowBox[{"t", "\[LessEqual]", " ", "Ttildes"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"t", ">", "Ttildes"}]}], "}"}]}], "}"}], "]"}]}]}], ";"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"glsr", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"taxr", "[", "t", "]"}], "-", 
      RowBox[{"subr", "[", "t", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigr"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<lump sum transfer\>\""}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Dashed"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"budgr", "=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"taxr", "[", "t", "]"}], "-", 
        RowBox[{"subr", "[", "t", "]"}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Ttilder"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"evalr", "=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], " ", "\[Gamma]", " ", 
      SuperscriptBox[
       RowBox[{"er", "[", "t", "]"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "\[Epsilon]"}]}], ")"}]]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Ttilder"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\<Cost of acceptability in terms of public finance: budg/eval = \>\"", 
    ",", 
    RowBox[{
     RowBox[{"-", " ", "budgr"}], "/", "evalr"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Invr", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Mu]fr", "[", "t", "]"}], "-", 
      RowBox[{"c1", " ", 
       SuperscriptBox[
        RowBox[{"Yfr", "[", "t", "]"}], 
        RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Wr", "=", 
   RowBox[{
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"\[Gamma]", " ", 
           SuperscriptBox[
            RowBox[{"er", "[", "t", "]"}], 
            RowBox[{"1", "-", 
             RowBox[{"1", "/", "\[Epsilon]"}]}]]}], 
          RowBox[{"1", "-", 
           RowBox[{"1", "/", "\[Epsilon]"}]}]], "-", 
         RowBox[{"c1", " ", 
          SuperscriptBox[
           RowBox[{"Yfr", "[", "t", "]"}], 
           RowBox[{"-", "\[Beta]"}]], " ", 
          RowBox[{"Invr", "[", "t", "]"}]}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"c2", "/", "2"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"Invr", "[", "t", "]"}], "2"]}]}], ")"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "Tfigr"}], "}"}]}], "]"}], "-", 
    RowBox[{"cx", " ", 
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], "  ", 
        RowBox[{"xr", "[", "t", "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "Ttilder"}], "}"}]}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"\[Gamma]", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Phi]", " ", "Ystar"}], ")"}], 
          RowBox[{"1", "-", 
           RowBox[{"1", "/", "\[Epsilon]"}]}]]}], 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "\[Epsilon]"}]}]], "-", 
       RowBox[{"c1", " ", "\[Delta]", " ", 
        SuperscriptBox["Ystar", 
         RowBox[{"1", "-", "\[Beta]"}]]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c2", "/", "2"}], ")"}], " ", 
        SuperscriptBox["\[Delta]", "2"], "  ", 
        SuperscriptBox["Ystar", "2"]}]}], ")"}], "  ", 
     FractionBox[
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "\[Rho]"}], " ", 
        RowBox[{"(", "Tfigr", ")"}]}], "]"}], "\[Rho]"]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Wre", "=", 
   RowBox[{
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], " ", 
       FractionBox[
        RowBox[{"\[Gamma]", " ", 
         SuperscriptBox[
          RowBox[{"er", "[", "t", "]"}], 
          RowBox[{"1", "-", 
           RowBox[{"1", "/", "\[Epsilon]"}]}]]}], 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "\[Epsilon]"}]}]]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "Tfigr"}], "}"}]}], "]"}], "+", 
    RowBox[{
     RowBox[{"(", 
      FractionBox[
       RowBox[{"\[Gamma]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Phi]", " ", "Ystar"}], ")"}], 
         RowBox[{"1", "-", 
          RowBox[{"1", "/", "\[Epsilon]"}]}]]}], 
       RowBox[{"1", "-", 
        RowBox[{"1", "/", "\[Epsilon]"}]}]], ")"}], "  ", 
     FractionBox[
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "\[Rho]"}], " ", 
        RowBox[{"(", "Tfigr", ")"}]}], "]"}], "\[Rho]"]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ccr", "=", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        FractionBox[
         RowBox[{"WO", "-", "Wr"}], "Wre"]}], ")"}], 
      FractionBox["1", 
       RowBox[{"1", "-", 
        FractionBox["1", "\[Epsilon]"]}]]], "-", "1"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ccs", "=", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        FractionBox[
         RowBox[{"WO", "-", "Ws"}], "Wse"]}], ")"}], 
      FractionBox["1", 
       RowBox[{"1", "-", 
        FractionBox["1", "\[Epsilon]"]}]]], "-", "1"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<Welfare cost of acceptability: wr = \>\"", ",", " ", "ccr"}], 
   "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.826771975154039*^9, 3.826772015151587*^9}, {
   3.832580049557805*^9, 3.832580065595121*^9}, {3.832580849017107*^9, 
   3.832580875207255*^9}, {3.832581608806727*^9, 3.832581611244207*^9}, {
   3.832587345148134*^9, 3.832587355543338*^9}, {3.8325874508288593`*^9, 
   3.832587458816164*^9}, {3.8325875219550734`*^9, 3.832587525388681*^9}, {
   3.832759636299856*^9, 3.832759827596208*^9}, {3.832759881697723*^9, 
   3.832759886569482*^9}, {3.832760995055678*^9, 3.832761085288685*^9}, {
   3.832815174606763*^9, 3.832815177053817*^9}, {3.8471870657000523`*^9, 
   3.84718708498633*^9}, {3.847188260601553*^9, 3.8471882693709984`*^9}, {
   3.847189938039563*^9, 3.847189985360891*^9}, {3.8477879731186757`*^9, 
   3.847787988333739*^9}, {3.8477966006589155`*^9, 3.847796741796533*^9}, {
   3.8477967771653833`*^9, 3.8477968959995356`*^9}, {3.8477970089623904`*^9, 
   3.847797053111766*^9}, {3.849864519292194*^9, 3.8498645235164833`*^9}, {
   3.849864564565836*^9, 3.849864571735846*^9}, {3.850037691173935*^9, 
   3.850037708020561*^9}, {3.850108188947613*^9, 3.850108221574717*^9}, {
   3.850108353594986*^9, 3.850108354873992*^9}, {3.850112403106415*^9, 
   3.850112433407045*^9}, 3.850116615725524*^9, {3.850117670793829*^9, 
   3.850117671648369*^9}, {3.850118692840205*^9, 3.8501187229963303`*^9}, {
   3.8501194037762823`*^9, 3.8501194054753532`*^9}, {3.850120488961838*^9, 
   3.850120490015029*^9}, {3.850120627119656*^9, 3.8501206281004257`*^9}, {
   3.850121321726035*^9, 3.850121323825836*^9}, {3.8501215620282593`*^9, 
   3.850121595460649*^9}, {3.851752646276505*^9, 3.851752649874528*^9}, {
   3.858228222261451*^9, 3.8582282540372033`*^9}, {3.859952106659181*^9, 
   3.8599521114904184`*^9}, 3.8599524919010625`*^9, {3.862040975913794*^9, 
   3.862040982724031*^9}, {3.862041059677246*^9, 3.8620410642144127`*^9}, {
   3.8623201221087313`*^9, 3.862320126543214*^9}, {3.8623202037256117`*^9, 
   3.862320215177525*^9}, {3.862320713478983*^9, 3.862320769553648*^9}, {
   3.862536897469528*^9, 3.862536906266521*^9}, {3.862538079230762*^9, 
   3.862538086366597*^9}, {3.8625415651649237`*^9, 3.8625415716318893`*^9}, {
   3.879688027828837*^9, 3.8796881203144503`*^9}, {3.887254217739849*^9, 
   3.887254224273774*^9}, {3.890797157656583*^9, 3.890797161469322*^9}, {
   3.896323332264307*^9, 3.896323373304243*^9}, {3.89632341715511*^9, 
   3.8963234218250732`*^9}, {3.896324831418914*^9, 3.896324845884179*^9}, {
   3.8963274824663363`*^9, 3.8963275091470137`*^9}, {3.8963275667056837`*^9, 
   3.896327567498179*^9}, {3.896328690759112*^9, 3.896328736573843*^9}, {
   3.896335402596984*^9, 3.896335405945002*^9}, {3.896335872283092*^9, 
   3.896335900770492*^9}, {3.896343408487443*^9, 3.896343445100027*^9}, {
   3.896344210115795*^9, 3.896344213280815*^9}, {3.961081157948891*^9, 
   3.9610811585634613`*^9}, {3.9610813775182676`*^9, 3.961081387395895*^9}, {
   3.961081452125255*^9, 3.961081469533493*^9}, {3.961081519987712*^9, 
   3.9610815236739388`*^9}, {3.961081583239414*^9, 3.9610815840898743`*^9}, {
   3.9610817959564257`*^9, 3.961081801922581*^9}, 3.961083154757083*^9, 
   3.961087135388779*^9, 3.961088042067068*^9},
 CellLabel->
  "In[219]:=",ExpressionUUID->"e8ebfbda-4580-4e05-9800-4cf630e3a63c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["5. Small constant carbon tax, permanent FIP", \
"Section"]], "Chapter",
 CellChangeTimes->{{3.826697519672256*^9, 3.826697580027843*^9}, {
   3.826697652352769*^9, 3.8266977056371593`*^9}, {3.826697743247591*^9, 
   3.826697749730509*^9}, {3.82671702579667*^9, 3.826717026208395*^9}, 
   3.826717107644614*^9, {3.8267827733236313`*^9, 3.826782786175125*^9}, {
   3.8325797823387012`*^9, 3.83257979800218*^9}, {3.832579858645071*^9, 
   3.832579870425434*^9}, {3.846169221222629*^9, 3.8461692408364487`*^9}, {
   3.8477874993826647`*^9, 3.847787509270653*^9}, {3.849864588750937*^9, 
   3.849864612172791*^9}, {3.850476602484991*^9, 3.850476609774579*^9}, {
   3.854714381710659*^9, 3.8547143823482027`*^9}, {3.862224112606159*^9, 
   3.86222411351623*^9}, {3.8849659569231243`*^9, 3.884965957710424*^9}, {
   3.960882129663162*^9, 3.9608821302328215`*^9}, {3.961066871083644*^9, 
   3.961066883465927*^9}, {3.961087100236848*^9, 
   3.9610871084082384`*^9}},ExpressionUUID->"ac1bd176-84c7-4314-a36b-\
e5e479d54ac5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Clear", "[", 
    RowBox[{
    "carbonpriceV", ",", "\[Tau]tilde", ",", "\[Zeta]1Lbound", ",", 
     "\[Zeta]1Hbound", ",", "nt", ",", "nbitert", ",", "Ttilde", ",", "Tfigt",
      ",", "Ytilde", ",", "\[Mu]dtilde", ",", "\[Sigma]tilde", ",", "resol", 
     ",", "\[Mu]dotSB1", ",", "YdotSB12", ",", "de1Y", ",", "de1\[Zeta]1", 
     ",", "de1\[Mu]", ",", "sol1", ",", "Y1", ",", "\[Mu]1", ",", "\[Zeta]11",
      ",", "\[Sigma]", ",", "x", ",", "X", ",", "e", ",", "\[Zeta]1low", ",", 
     "\[Zeta]1high", ",", " ", "\[Zeta]1grid", ",", "\[Zeta]10star", ",", 
     "Xbart", ",", "\[Mu]1t", ",", "Y1t", ",", "\[Zeta]11t", ",", "\[Sigma]t",
      ",", "xt", ",", "et", ",", "Yft", ",", "\[Mu]ft", ",", "Txt", ",", 
     "g\[Lambda]t", ",", "val\[Lambda]t", ",", "gyt", ",", "valYt", ",", 
     "g\[Mu]t", ",", "val\[Mu]t", ",", "\[Sigma]LbDt", ",", "val\[Sigma]LbDt",
      ",", "\[Sigma]Cvt", ",", "val\[Sigma]Cvt", ",", "g\[Sigma]t", ",", 
     "gxt", ",", "valxt", ",", "get", ",", "valet", ",", "gpt", ",", "valpt", 
     ",", "subt", ",", "taxt", ",", "glst", ",", "budgt", ",", "evalt", ",", 
     "budgsurevalafter", ",", "Invt", ",", "Wt", ",", "Wte", ",", "cct"}], 
    "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Procedure", ":", " ", 
     RowBox[{"choose", " ", "\[Zeta]1", 
      RowBox[{"(", "0", ")"}], " ", "minimizing", " ", "the", " ", "distance",
       " ", "from", " ", "Xbar", " ", "AND", " ", "the", " ", "fossil", " ", 
      "phase", " ", "out", " ", "date", " ", 
      RowBox[{"(", "Ttilde", ")"}], " ", "such", " ", "that", " ", "the", " ",
       "value", " ", "of", " ", "\[Mu]1t", 
      RowBox[{"(", "Ttilde", ")"}], " ", "from", " ", "forward", " ", 
      "shooting", " ", "is", " ", "close", " ", "to", " ", "the", " ", "long",
       " ", "term", " ", "value", " ", "of", " ", "\[Mu]", " ", 
      RowBox[{
       RowBox[{"(", "\[Mu]dtilde", ")"}], ".", " ", "In"}], " ", 
      "practice"}]}], ",", " ", 
    RowBox[{"once", " ", "\[Zeta]1", 
     RowBox[{"(", "0", ")"}], " ", "is", " ", "determined"}], ",", " ", 
    RowBox[{
     RowBox[{"reduce", " ", "Ttilde", " ", "if", " ", "\[Mu]", 
      RowBox[{"(", "Ttilde", ")"}]}], "<", 
     RowBox[{"\[Mu]dtilde", " ", "and", " ", "vice", " ", "versa"}]}]}], " ", 
   "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"**", "**", "**"}], "******)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", "choices", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"carbonpriceV", "=", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Tau]tilde", "=", 
   RowBox[{"carbonpriceV", "*", "\[Kappa]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Zeta]1Lbound", "=", "31"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Zeta]1Hbound", "=", "32"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"nt", "=", "20"}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nbitert", "=", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ttilde", "=", "32.184"}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Tfigt", "=", "85"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"**", "**", "**"}], "******)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ytilde", "=", 
   RowBox[{
    FractionBox["1", "\[Phi]"], 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox["\[Gamma]", 
       RowBox[{"cx", "+", "\[Tau]tilde"}]], ")"}], "\[Epsilon]"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Mu]dtilde", "=", 
   RowBox[{
    RowBox[{"c1", " ", 
     SuperscriptBox["Ytilde", 
      RowBox[{"-", "\[Beta]"}]]}], "+", 
    RowBox[{"c2", " ", "\[Delta]", " ", "Ytilde"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Sigma]tilde", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}], "/", "\[Phi]"}], ")"}], 
      " ", "\[Mu]dtilde"}], "-", "cx", "-", "\[Tau]tilde"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<Ytilde =  \>\"", ",", "Ytilde"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<\[Mu]dtilde =  \>\"", ",", "\[Mu]dtilde"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<\[Sigma]tilde =  \>\"", ",", "\[Sigma]tilde"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<Condition for overshooting: \[Tau]tilde < \>\"", ",", 
    RowBox[{
     RowBox[{"\[Gamma]", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Phi]", " ", "Ystar"}], ")"}], 
       RowBox[{
        RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}], "-", "cx"}], ",", 
    "\"\< here the constant tax is \>\"", ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Tau]tilde", "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Gamma]", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Phi]", " ", "Ystar"}], ")"}], 
            RowBox[{
             RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}], "-", "cx"}], ")"}]}],
        "-", "1"}], ")"}], "*", "100"}], ",", 
    "\"\<% lower than the threshold\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.826697519672256*^9, 3.826697580027843*^9}, {
   3.826697652352769*^9, 3.8266977554561663`*^9}, {3.8266978504549828`*^9, 
   3.8266980625810966`*^9}, {3.826698118584816*^9, 3.82669813683633*^9}, {
   3.82671708533427*^9, 3.82671711297655*^9}, {3.826717195616568*^9, 
   3.8267172879058332`*^9}, {3.8267173280925407`*^9, 3.826717333641568*^9}, {
   3.826717522821595*^9, 3.826717570299461*^9}, {3.826717680880262*^9, 
   3.826717744163055*^9}, {3.8267701655635223`*^9, 3.8267701859289627`*^9}, 
   3.8267827128347197`*^9, {3.8267828066452017`*^9, 3.82678282296761*^9}, {
   3.826783014197393*^9, 3.8267830193821793`*^9}, {3.826783053053761*^9, 
   3.8267831904013863`*^9}, {3.826783283921215*^9, 3.826783353695147*^9}, {
   3.826783398939056*^9, 3.826783468595071*^9}, {3.8267839748795967`*^9, 
   3.826784025944957*^9}, {3.826784076268982*^9, 3.826784099613714*^9}, {
   3.826802617136519*^9, 3.8268026181797743`*^9}, {3.826802651897314*^9, 
   3.82680267122538*^9}, {3.826802722431972*^9, 3.826802767546453*^9}, {
   3.826802800603544*^9, 3.826802830739423*^9}, {3.826802862078915*^9, 
   3.8268028915248327`*^9}, {3.8268029217129583`*^9, 3.826802922935287*^9}, {
   3.8325799020902243`*^9, 3.83257991082253*^9}, {3.83258017566625*^9, 
   3.832580177208193*^9}, {3.832580226339326*^9, 3.832580227036541*^9}, {
   3.832580278582456*^9, 3.8325804303569593`*^9}, {3.832580461030594*^9, 
   3.8325804766469593`*^9}, 3.832580591372081*^9, 3.8325816333865843`*^9, {
   3.832581693506543*^9, 3.83258169403688*^9}, {3.832581729792838*^9, 
   3.832581731973393*^9}, 3.8327608773441143`*^9, {3.832760912232373*^9, 
   3.832760957930429*^9}, {3.8327616436011877`*^9, 3.832761674425411*^9}, {
   3.83281481827204*^9, 3.832814824036419*^9}, {3.832814911489626*^9, 
   3.832814912218461*^9}, {3.832815028115548*^9, 3.8328150895946007`*^9}, 
   3.8328152122241592`*^9, 3.83281525241672*^9, {3.832815299537415*^9, 
   3.832815300150611*^9}, {3.8328219508123713`*^9, 3.8328219516773767`*^9}, {
   3.8328220020371017`*^9, 3.832822006343603*^9}, {3.832822042412553*^9, 
   3.832822043304326*^9}, {3.83282212518801*^9, 3.832822126103573*^9}, {
   3.832822167920742*^9, 3.832822179657393*^9}, {3.832822218391253*^9, 
   3.832822219290711*^9}, {3.832822250934577*^9, 3.832822253951581*^9}, 
   3.832822322940024*^9, {3.832822374068527*^9, 3.832822374897048*^9}, {
   3.8328224264429293`*^9, 3.8328224272685833`*^9}, {3.832822459102688*^9, 
   3.832822460137269*^9}, 3.832822508242244*^9, 3.8337133494149017`*^9, {
   3.8337133846093063`*^9, 3.833713386142579*^9}, {3.846168616840665*^9, 
   3.846168896852541*^9}, {3.846168932383956*^9, 3.8461690023694143`*^9}, {
   3.846169089428948*^9, 3.846169180556508*^9}, {3.8461692683686113`*^9, 
   3.846169350350443*^9}, {3.846169380378189*^9, 3.846169450908692*^9}, {
   3.8465644626160965`*^9, 3.8465645791262984`*^9}, {3.8465646186629257`*^9, 
   3.846564633874517*^9}, {3.846564664949559*^9, 3.8465647643150935`*^9}, {
   3.8465648836830063`*^9, 3.846564884603797*^9}, {3.846565181204013*^9, 
   3.8465652339227037`*^9}, {3.8465653002792697`*^9, 3.846565348791662*^9}, {
   3.8465653941292987`*^9, 3.846565534488723*^9}, {3.8465657634089823`*^9, 
   3.846565763831935*^9}, {3.846565817722123*^9, 3.8465658181477704`*^9}, {
   3.846565869733901*^9, 3.8465658796397505`*^9}, {3.846565922079465*^9, 
   3.846565975746462*^9}, {3.8465660412443304`*^9, 3.846566041672748*^9}, {
   3.8465660832935743`*^9, 3.846566083755465*^9}, {3.846566125150813*^9, 
   3.846566125620896*^9}, {3.8465661803508615`*^9, 3.846566181736549*^9}, {
   3.8465662246347404`*^9, 3.8465662250377464`*^9}, {3.8465662715772862`*^9, 
   3.8465662719762306`*^9}, {3.846566316131551*^9, 3.846566316542246*^9}, {
   3.846566369764449*^9, 3.846566371018426*^9}, {3.8465664146601253`*^9, 
   3.846566450868167*^9}, {3.8465664815575085`*^9, 3.846566482546114*^9}, {
   3.846566523558004*^9, 3.846566524219438*^9}, {3.846566564048211*^9, 
   3.8465665645473433`*^9}, {3.846566597287648*^9, 3.846566597731559*^9}, {
   3.846566654310875*^9, 3.8465666547324963`*^9}, {3.8465666960379333`*^9, 
   3.8465666972313366`*^9}, {3.8465667310701065`*^9, 3.846566731508182*^9}, 
   3.846566763357732*^9, {3.8465668273097878`*^9, 3.8465668564927425`*^9}, {
   3.846572142198427*^9, 3.8465721434379787`*^9}, {3.8465721954951954`*^9, 
   3.8465721959316025`*^9}, {3.8465722511116605`*^9, 3.846572251397266*^9}, {
   3.846572297723818*^9, 3.84657229810223*^9}, {3.846572344819878*^9, 
   3.8465723489396024`*^9}, {3.846572402676483*^9, 3.846572403596615*^9}, {
   3.846816887816596*^9, 3.846816907888953*^9}, {3.8468169798589993`*^9, 
   3.846816980656866*^9}, 3.8468170652502584`*^9, {3.8468171278631983`*^9, 
   3.8468171297001514`*^9}, {3.846817162308836*^9, 3.846817162677336*^9}, {
   3.846817199814546*^9, 3.846817205683964*^9}, {3.846817250389989*^9, 
   3.8468172547467213`*^9}, {3.846817317347084*^9, 3.8468173215464487`*^9}, {
   3.8468173560918417`*^9, 3.846817356498454*^9}, {3.84681741982694*^9, 
   3.8468174222333508`*^9}, {3.8468174588604684`*^9, 
   3.8468174654173975`*^9}, {3.846817497173332*^9, 3.846817497572523*^9}, {
   3.846817542156522*^9, 3.846817543737306*^9}, 3.846817613948851*^9, {
   3.846817652835613*^9, 3.8468176532845783`*^9}, {3.846817784883647*^9, 
   3.8468177896046*^9}, {3.8468178294456234`*^9, 3.8468178298116064`*^9}, {
   3.846840592748277*^9, 3.846840593469572*^9}, {3.84684072787004*^9, 
   3.8468407897975545`*^9}, {3.846840885581024*^9, 3.8468410480771875`*^9}, {
   3.846841113928362*^9, 3.846841148926806*^9}, {3.8468411953338594`*^9, 
   3.8468412622909083`*^9}, {3.846845522308096*^9, 3.8468455327493944`*^9}, {
   3.846845631440799*^9, 3.846845633055486*^9}, {3.8468457220817623`*^9, 
   3.846845722511705*^9}, {3.8468457728250885`*^9, 3.8468457732191086`*^9}, {
   3.846845825580093*^9, 3.846845830737089*^9}, {3.846845865993413*^9, 
   3.8468458663714824`*^9}, {3.846845901089572*^9, 3.846845928163545*^9}, 
   3.8468460182097683`*^9, {3.84684605586761*^9, 3.846846056274093*^9}, {
   3.8468460896448784`*^9, 3.8468460900870004`*^9}, {3.8468461218678594`*^9, 
   3.846846122263889*^9}, {3.8468461651820526`*^9, 3.8468461962369614`*^9}, {
   3.8468462277838097`*^9, 3.8468462281858234`*^9}, {3.846846277123144*^9, 
   3.846846277559677*^9}, {3.8468463084458933`*^9, 3.84684630888103*^9}, {
   3.84684634195434*^9, 3.846846342525428*^9}, {3.846846372621909*^9, 
   3.8468463731648135`*^9}, {3.8468464147153444`*^9, 3.846846417137335*^9}, {
   3.8468464492196875`*^9, 3.8468465078554893`*^9}, 3.846846545620405*^9, 
   3.8468465831183376`*^9, {3.847168350628271*^9, 3.847168356873187*^9}, {
   3.847168421581848*^9, 3.84716842325585*^9}, {3.8471684666598234`*^9, 
   3.8471684965488424`*^9}, {3.847168532728888*^9, 3.847168534785991*^9}, {
   3.8471685690342646`*^9, 3.847168569464798*^9}, 3.8471687036475515`*^9, {
   3.847168754402199*^9, 3.84716875478022*^9}, {3.847168795384446*^9, 
   3.8471687967097855`*^9}, {3.8471688552194343`*^9, 3.847168862161374*^9}, 
   3.8471818830135994`*^9, {3.847181954726035*^9, 3.8471819554131203`*^9}, {
   3.8471820020222545`*^9, 3.8471820024534235`*^9}, {3.8471820561555595`*^9, 
   3.847182056837702*^9}, {3.8471822238978186`*^9, 3.847182230085563*^9}, {
   3.84718228831876*^9, 3.847182289354521*^9}, {3.8471823419303937`*^9, 
   3.8471823422775517`*^9}, {3.8471823741229897`*^9, 
   3.8471823753188696`*^9}, {3.847182441142972*^9, 3.8471824480104837`*^9}, {
   3.847182510540641*^9, 3.847182511399679*^9}, {3.847182553783943*^9, 
   3.847182554184085*^9}, {3.8471826230179844`*^9, 3.8471826299118166`*^9}, {
   3.847182676413659*^9, 3.847182676811701*^9}, {3.8471827085581083`*^9, 
   3.847182717800353*^9}, {3.847183277543023*^9, 3.8471833042939157`*^9}, {
   3.847183364775496*^9, 3.847183368420535*^9}, {3.8471857555482073`*^9, 
   3.847185759849716*^9}, {3.8471857988380156`*^9, 3.847185799498404*^9}, {
   3.8471862464220467`*^9, 3.847186247308177*^9}, {3.8471862990537233`*^9, 
   3.8471863005417523`*^9}, {3.847186349199266*^9, 3.8471863537260284`*^9}, {
   3.8471863997277765`*^9, 3.8471864028614235`*^9}, {3.847187199011094*^9, 
   3.847187208704338*^9}, {3.847187358284011*^9, 3.847187360383865*^9}, {
   3.8471878345448847`*^9, 3.8471878374724317`*^9}, {3.8471878934430323`*^9, 
   3.847187901599221*^9}, {3.847187988945199*^9, 3.8471879894877634`*^9}, {
   3.8471880239050446`*^9, 3.847188024367765*^9}, {3.847188066721484*^9, 
   3.8471880671798053`*^9}, {3.847787549012091*^9, 3.847787583563673*^9}, {
   3.8477882007878876`*^9, 3.8477882012808805`*^9}, {3.8477882440789742`*^9, 
   3.8477882444779377`*^9}, {3.8477883297240467`*^9, 3.847788330079031*^9}, {
   3.8477883669558277`*^9, 3.847788369282047*^9}, {3.8477884125800653`*^9, 
   3.8477884129741087`*^9}, 3.8477884774711094`*^9, {3.847788528223155*^9, 
   3.8477885320155935`*^9}, {3.847788576734928*^9, 3.847788577246089*^9}, 
   3.8477886259991083`*^9, {3.847788670326703*^9, 3.8477886728459463`*^9}, {
   3.8477887164351254`*^9, 3.847788716818091*^9}, {3.847788759446004*^9, 
   3.847788760119931*^9}, 3.847789188269428*^9, {3.847789228093193*^9, 
   3.847789228572428*^9}, 3.847789370379602*^9, {3.8477894099547787`*^9, 
   3.847789410397631*^9}, {3.8477974737620935`*^9, 3.8477974775854053`*^9}, {
   3.850108910072337*^9, 3.850108948123698*^9}, {3.850109043366857*^9, 
   3.8501090516873903`*^9}, {3.850112023689413*^9, 3.8501120287815742`*^9}, {
   3.850132019438601*^9, 3.8501320529108953`*^9}, {3.850132898745719*^9, 
   3.8501329002713423`*^9}, {3.85013327705049*^9, 3.8501332845051813`*^9}, {
   3.85013344648884*^9, 3.8501334479956923`*^9}, {3.8501335547234163`*^9, 
   3.8501335609379253`*^9}, {3.850133678097048*^9, 3.850133681727685*^9}, {
   3.850133797088369*^9, 3.850133804340515*^9}, {3.850133868662513*^9, 
   3.850133869369855*^9}, {3.850134015073655*^9, 3.850134020185841*^9}, {
   3.850134063508884*^9, 3.850134064320332*^9}, {3.8501341803719177`*^9, 
   3.850134186456355*^9}, {3.8501342928976793`*^9, 3.850134297284667*^9}, {
   3.850134333489883*^9, 3.850134334195591*^9}, {3.850134449052072*^9, 
   3.850134453710538*^9}, {3.850134572273571*^9, 3.850134578185609*^9}, {
   3.8501347027770433`*^9, 3.850134708259192*^9}, {3.850134758049861*^9, 
   3.850134758943542*^9}, {3.850134874206751*^9, 3.8501348784338627`*^9}, {
   3.850134919559293*^9, 3.85013492031398*^9}, {3.8501351389509077`*^9, 
   3.850135143318193*^9}, {3.850135277598674*^9, 3.850135283788269*^9}, {
   3.8501353964164143`*^9, 3.850135402111382*^9}, {3.850135514619096*^9, 
   3.850135519628008*^9}, {3.8501356371488247`*^9, 3.850135638193225*^9}, {
   3.8501357778402243`*^9, 3.850135781590114*^9}, {3.850135919195573*^9, 
   3.8501359280018253`*^9}, {3.850136018483912*^9, 3.850136019038527*^9}, {
   3.8501361312398643`*^9, 3.850136135764079*^9}, {3.8501362962662697`*^9, 
   3.8501363239470253`*^9}, {3.850136369554294*^9, 3.8501363703049383`*^9}, {
   3.850136519311105*^9, 3.850136524270137*^9}, {3.8501366377593317`*^9, 
   3.850136643826387*^9}, {3.8501368463177023`*^9, 3.850136851316496*^9}, {
   3.850136970829341*^9, 3.850136977482705*^9}, {3.850137070336268*^9, 
   3.850137070874893*^9}, {3.850137196333234*^9, 3.850137202845467*^9}, {
   3.850137426331854*^9, 3.850137430682034*^9}, {3.8501374907511*^9, 
   3.8501374914709682`*^9}, {3.850216799520298*^9, 3.850216806778221*^9}, {
   3.850217297307255*^9, 3.850217301559559*^9}, {3.8502181244588203`*^9, 
   3.850218129335309*^9}, {3.850218498106398*^9, 3.850218502968978*^9}, {
   3.8502187714107122`*^9, 3.850218775028935*^9}, {3.8502193141945047`*^9, 
   3.8502193187212763`*^9}, {3.850219590188384*^9, 3.8502195947822*^9}, {
   3.8502199552602367`*^9, 3.850219959744954*^9}, {3.850220277567178*^9, 
   3.8502202823551702`*^9}, {3.850220642450955*^9, 3.85022064676571*^9}, {
   3.850220900159471*^9, 3.850220906576069*^9}, {3.850476714688446*^9, 
   3.8504767500811777`*^9}, {3.850477160755846*^9, 3.850477164925742*^9}, {
   3.850479462802518*^9, 3.850479464777007*^9}, {3.850479520782494*^9, 
   3.85047953950243*^9}, {3.8504799989358187`*^9, 3.85047999986688*^9}, {
   3.850480071308176*^9, 3.850480073320239*^9}, {3.850480153409251*^9, 
   3.850480154147648*^9}, {3.850480212230064*^9, 3.8504802195651293`*^9}, {
   3.850480554794458*^9, 3.8504805554353313`*^9}, {3.850537290447297*^9, 
   3.850537306768085*^9}, {3.850537639908469*^9, 3.85053764254039*^9}, {
   3.850537752553525*^9, 3.850537754388709*^9}, {3.85053787436535*^9, 
   3.850537875026249*^9}, {3.85053793963638*^9, 3.85053794027104*^9}, {
   3.850636986549892*^9, 3.85063701280958*^9}, {3.850638651848278*^9, 
   3.850638672329314*^9}, {3.85063885594413*^9, 3.850638860829033*^9}, {
   3.850638973000249*^9, 3.85063898565656*^9}, {3.850639045075787*^9, 
   3.850639045554435*^9}, {3.8506391878105927`*^9, 3.850639188503295*^9}, {
   3.850814128514638*^9, 3.85081413435988*^9}, {3.851248771788682*^9, 
   3.851248783102428*^9}, {3.851248933956442*^9, 3.85124893727591*^9}, {
   3.851250408021463*^9, 3.851250417539097*^9}, {3.851250509877728*^9, 
   3.851250511748287*^9}, {3.851250617619926*^9, 3.851250618761594*^9}, {
   3.8512513645052977`*^9, 3.851251366306288*^9}, {3.851251437574829*^9, 
   3.851251439770609*^9}, 3.851251912370825*^9, {3.851252380536644*^9, 
   3.8512523999465714`*^9}, {3.851253071673777*^9, 3.851253077111558*^9}, {
   3.8512531076426983`*^9, 3.851253207855077*^9}, {3.851315349538398*^9, 
   3.851315354746539*^9}, {3.85131618563695*^9, 3.851316186924941*^9}, {
   3.851321626549737*^9, 3.851321627478114*^9}, {3.851330330807651*^9, 
   3.851330332370923*^9}, {3.851330389148136*^9, 3.851330389816782*^9}, {
   3.851330496103973*^9, 3.851330497211685*^9}, 3.851330559899995*^9, 
   3.851330620040674*^9, {3.85133077418534*^9, 3.85133077489434*^9}, {
   3.851331033334111*^9, 3.8513310338151007`*^9}, {3.851336015242936*^9, 
   3.851336016672441*^9}, {3.851336404990407*^9, 3.851336406534471*^9}, {
   3.853904781765963*^9, 3.8539047824224253`*^9}, {3.85390510461412*^9, 
   3.853905105611223*^9}, 3.854714869970595*^9, {3.854714947266667*^9, 
   3.85471494785546*^9}, {3.854714983918252*^9, 3.85471501053192*^9}, {
   3.854715049439065*^9, 3.854715050091305*^9}, {3.854715504748454*^9, 
   3.8547155061824083`*^9}, {3.854715611809843*^9, 3.8547156123926287`*^9}, {
   3.854715859961767*^9, 3.854715860555916*^9}, {3.8622241294878607`*^9, 
   3.862224186786089*^9}, {3.862224393384488*^9, 3.86222439669433*^9}, {
   3.862225388568687*^9, 3.8622253943514137`*^9}, 3.8625387369530563`*^9, {
   3.862541794444015*^9, 3.862541795687101*^9}, {3.862541956347967*^9, 
   3.86254195720485*^9}, 3.862557978564786*^9, {3.863331073641398*^9, 
   3.863331074331341*^9}, {3.864787707698353*^9, 3.8647877108768473`*^9}, {
   3.864787776206905*^9, 3.864787780948539*^9}, {3.864787984726926*^9, 
   3.8647879855213614`*^9}, {3.879583948071897*^9, 3.879584061967856*^9}, {
   3.879584102681315*^9, 3.8795842551431017`*^9}, {3.87958439090843*^9, 
   3.879584416919238*^9}, 3.8796896004175043`*^9, {3.879739243293765*^9, 
   3.879739244218629*^9}, {3.882938254832343*^9, 3.882938255216467*^9}, {
   3.8836396938525805`*^9, 3.8836396956411095`*^9}, {3.8836398304228797`*^9, 
   3.883639949052434*^9}, {3.883639992421135*^9, 3.8836399958153777`*^9}, {
   3.8849659710595284`*^9, 3.8849659904466486`*^9}, {3.8849673428643084`*^9, 
   3.8849674560965996`*^9}, {3.8849675308387303`*^9, 3.884967550253154*^9}, {
   3.8849675950730066`*^9, 3.8849675970433617`*^9}, {3.884967982841385*^9, 
   3.884967983522743*^9}, {3.8849683923705716`*^9, 3.884968396059564*^9}, {
   3.8849685405415163`*^9, 3.8849685410598755`*^9}, {3.8849686161917458`*^9, 
   3.884968630177759*^9}, {3.884968696066721*^9, 3.8849687045673018`*^9}, {
   3.884968771668933*^9, 3.8849687787914658`*^9}, {3.8849688412519774`*^9, 
   3.8849688564389744`*^9}, {3.8849689357708473`*^9, 3.884968947133412*^9}, {
   3.884969022319727*^9, 3.8849690394613934`*^9}, {3.8849691026818867`*^9, 
   3.8849691048905315`*^9}, {3.8849691660037107`*^9, 3.884969166954399*^9}, {
   3.8849692186233263`*^9, 3.8849692217671027`*^9}, {3.8849692842439947`*^9, 
   3.8849692858198996`*^9}, {3.884969371628587*^9, 3.884969371831921*^9}, {
   3.884969423610692*^9, 3.8849694263712816`*^9}, {3.8872548678124123`*^9, 
   3.8872549113699617`*^9}, {3.8872550134593577`*^9, 3.887255018955907*^9}, {
   3.887255143848954*^9, 3.887255145772998*^9}, {3.8872562378959074`*^9, 
   3.887256252177727*^9}, {3.887256653790851*^9, 3.8872566803099375`*^9}, {
   3.887256856270522*^9, 3.8872568662791615`*^9}, {3.8872570089504137`*^9, 
   3.8872570222526255`*^9}, {3.8872571592376375`*^9, 
   3.8872571735862617`*^9}, {3.8872572872012672`*^9, 3.887257295506996*^9}, {
   3.8872574691007156`*^9, 3.887257501940903*^9}, {3.88725762644593*^9, 
   3.887257648340329*^9}, {3.887257802066942*^9, 3.887257813236823*^9}, {
   3.887257845870939*^9, 3.887257859789055*^9}, {3.8872579976152706`*^9, 
   3.8872580427154207`*^9}, {3.8872581473948245`*^9, 
   3.8872581702978907`*^9}, {3.887258295178509*^9, 3.887258307621187*^9}, {
   3.887258436547661*^9, 3.887258460241617*^9}, {3.887258571644696*^9, 
   3.8872585973160515`*^9}, {3.88725890823184*^9, 3.8872589128795953`*^9}, {
   3.890796776728582*^9, 3.890796778002819*^9}, {3.890801500270399*^9, 
   3.890801501537795*^9}, {3.890801624073441*^9, 3.89080162569361*^9}, {
   3.89080204547246*^9, 3.890802065768537*^9}, {3.890878547431531*^9, 
   3.8908785480801487`*^9}, {3.890878649121406*^9, 3.890878650228238*^9}, {
   3.890878818291638*^9, 3.8908788188632708`*^9}, {3.890878964798358*^9, 
   3.890878965462121*^9}, {3.890879019114993*^9, 3.890879027121826*^9}, {
   3.890879158845971*^9, 3.890879160111508*^9}, {3.890879343900242*^9, 
   3.890879345677786*^9}, {3.890879455152647*^9, 3.890879456013739*^9}, {
   3.89087956943855*^9, 3.890879570089892*^9}, {3.890879683130795*^9, 
   3.890879684162928*^9}, {3.890879783555641*^9, 3.890879784448407*^9}, {
   3.8908799295520678`*^9, 3.8908799304922647`*^9}, {3.890880570913356*^9, 
   3.890880571549141*^9}, {3.8908806789642763`*^9, 3.890880679518861*^9}, {
   3.89088086789219*^9, 3.890880879855762*^9}, {3.890881074147903*^9, 
   3.8908810901924953`*^9}, {3.890881999228451*^9, 3.890882017367201*^9}, {
   3.890882150324766*^9, 3.8908821513022823`*^9}, {3.890882509384859*^9, 
   3.890882509956069*^9}, {3.890882881345099*^9, 3.890882884857895*^9}, {
   3.890883064780573*^9, 3.8908830737920322`*^9}, 3.890883385982238*^9, {
   3.896268197176318*^9, 3.896268219305332*^9}, 3.896268272464713*^9, {
   3.8962683598190603`*^9, 3.8962683685560703`*^9}, {3.896268735746562*^9, 
   3.896268763022872*^9}, {3.8962689186498404`*^9, 3.8962689252294083`*^9}, {
   3.896268956371078*^9, 3.896268960645267*^9}, {3.896269137611026*^9, 
   3.896269170841825*^9}, {3.896269331568959*^9, 3.8962693339298353`*^9}, {
   3.896269562962697*^9, 3.8962695635178432`*^9}, {3.896269740567026*^9, 
   3.896269742309412*^9}, {3.89626991537955*^9, 3.896269918000757*^9}, {
   3.896323442500587*^9, 3.896323443025352*^9}, {3.8963234747020597`*^9, 
   3.896323521356777*^9}, {3.8963235563657207`*^9, 3.896323563611484*^9}, {
   3.896324994597929*^9, 3.8963249955004673`*^9}, {3.896325101465713*^9, 
   3.8963251022491093`*^9}, {3.896325956889682*^9, 3.8963259579001923`*^9}, {
   3.896326056070787*^9, 3.8963260623682833`*^9}, {3.8963503132852077`*^9, 
   3.896350324129181*^9}, {3.8963506640967817`*^9, 3.896350665856412*^9}, {
   3.896350777436632*^9, 3.8963507791373997`*^9}, {3.897994326259253*^9, 
   3.8979943272848253`*^9}, {3.8979944114536057`*^9, 3.897994412204211*^9}, {
   3.89799451268743*^9, 3.8979945186619987`*^9}, {3.897994730941286*^9, 
   3.897994731834364*^9}, {3.897994849355399*^9, 3.897994851171854*^9}, {
   3.897994947883353*^9, 3.8979949485225353`*^9}, {3.8979950390202427`*^9, 
   3.897995043279071*^9}, {3.897995156937223*^9, 3.897995167211526*^9}, {
   3.8981642072371063`*^9, 3.898164208554832*^9}, {3.898164315480815*^9, 
   3.898164316070339*^9}, {3.89875909634443*^9, 3.898759110746882*^9}, {
   3.898759203334021*^9, 3.898759204478071*^9}, {3.898759266567066*^9, 
   3.8987592723567057`*^9}, {3.898759334186384*^9, 3.8987593444499083`*^9}, {
   3.898759382074564*^9, 3.898759383571192*^9}, {3.898769253130817*^9, 
   3.898769254106385*^9}, {3.89876931755799*^9, 3.8987693189715357`*^9}, {
   3.8987693624718733`*^9, 3.898769363478084*^9}, {3.898769396517335*^9, 
   3.8987693973655252`*^9}, {3.898769442108344*^9, 3.898769442912633*^9}, {
   3.898769523291975*^9, 3.898769524003997*^9}, {3.898769564339863*^9, 
   3.898769564995325*^9}, {3.8987696080710783`*^9, 3.8987696090367727`*^9}, {
   3.898769649263632*^9, 3.898769650131312*^9}, {3.898934789838377*^9, 
   3.898934791436657*^9}, {3.8989348424916143`*^9, 3.898934843896764*^9}, {
   3.898934919921859*^9, 3.898934920895823*^9}, {3.898934964927915*^9, 
   3.898934977041795*^9}, {3.898935029048106*^9, 3.898935029338118*^9}, {
   3.898935075445998*^9, 3.8989350831197767`*^9}, {3.898935149098365*^9, 
   3.8989351506938963`*^9}, {3.9098279645328426`*^9, 
   3.9098279758291364`*^9}, {3.9098281830405455`*^9, 3.909828183449786*^9}, {
   3.9098282386555233`*^9, 3.9098282404090085`*^9}, {3.9098282899605303`*^9, 
   3.909828293624516*^9}, {3.9098283575519505`*^9, 3.909828358170486*^9}, {
   3.9098284365854635`*^9, 3.9098284372236595`*^9}, {3.9098285335004053`*^9, 
   3.9098285339783454`*^9}, {3.9098286202654066`*^9, 
   3.9098286216558924`*^9}, {3.9098287255439367`*^9, 
   3.9098287261383257`*^9}, {3.909828780458105*^9, 3.909828855495547*^9}, {
   3.9098289144444995`*^9, 3.909828915356752*^9}, {3.9098289791491146`*^9, 
   3.9098289807195005`*^9}, {3.909829044877949*^9, 3.909829046382623*^9}, {
   3.909829116102722*^9, 3.909829116643198*^9}, {3.9098291916393604`*^9, 
   3.9098291931413307`*^9}, {3.909829252277347*^9, 3.909829252773198*^9}, {
   3.909829355441382*^9, 3.909829355941292*^9}, {3.909829439285344*^9, 
   3.9098294444355497`*^9}, {3.909829534519277*^9, 3.909829536048329*^9}, {
   3.9098295764378276`*^9, 3.909829577252285*^9}, {3.9098296146441765`*^9, 
   3.9098296151722636`*^9}, {3.909829681362356*^9, 3.909829681859206*^9}, {
   3.9098297425517817`*^9, 3.909829748437166*^9}, {3.909905842435809*^9, 
   3.909905844053741*^9}, {3.909905905710664*^9, 3.909905906365374*^9}, {
   3.909905965579051*^9, 3.909905966374596*^9}, {3.909906019008581*^9, 
   3.9099060302810297`*^9}, {3.909906080198053*^9, 3.909906080786626*^9}, {
   3.909906196209283*^9, 3.909906211618741*^9}, {3.909906272027487*^9, 
   3.909906274720606*^9}, {3.909906333079377*^9, 3.9099063336678333`*^9}, {
   3.90990637921875*^9, 3.909906384671859*^9}, {3.909980822525422*^9, 
   3.909980823314333*^9}, {3.9099808812351217`*^9, 3.90998088309031*^9}, {
   3.909980927649661*^9, 3.909980928464563*^9}, {3.9108416188601427`*^9, 
   3.9108416697839637`*^9}, {3.9108417207398434`*^9, 3.910841724571658*^9}, {
   3.9108417904021893`*^9, 3.9108417996057043`*^9}, {3.910841903827403*^9, 
   3.91084190481698*^9}, {3.910842004380618*^9, 3.9108420073903875`*^9}, {
   3.9108420542388587`*^9, 3.9108420574918013`*^9}, {3.9108423544966636`*^9, 
   3.910842436701276*^9}, {3.910842466853381*^9, 3.9108424885513945`*^9}, {
   3.9108425339491625`*^9, 3.910842534218015*^9}, {3.9108425857115726`*^9, 
   3.910842591480926*^9}, {3.910842638747096*^9, 3.9108426624197206`*^9}, {
   3.9108427074254093`*^9, 3.910842723302767*^9}, 3.9108427687733564`*^9, {
   3.91084282052754*^9, 3.910842829572672*^9}, 3.910842883994095*^9, {
   3.9108429329337497`*^9, 3.9108429454003916`*^9}, 3.91084299286345*^9, {
   3.910843045969355*^9, 3.9108430493904243`*^9}, {3.912094787244314*^9, 
   3.912094820442736*^9}, {3.9120948625286694`*^9, 3.9120949941091337`*^9}, {
   3.9120951840106354`*^9, 3.91209520644759*^9}, {3.9120953346714287`*^9, 
   3.912095336578079*^9}, {3.9120954058957415`*^9, 3.9120954270088873`*^9}, {
   3.912097507431184*^9, 3.912097548165186*^9}, {3.9120985678481083`*^9, 
   3.9120986281625586`*^9}, {3.9120986652866497`*^9, 3.912098736568251*^9}, {
   3.912098813507697*^9, 3.9120988404830093`*^9}, {3.912099020782894*^9, 
   3.912099046638632*^9}, {3.912099107942705*^9, 3.9120991155151105`*^9}, {
   3.9120992029222355`*^9, 3.9120992097856655`*^9}, {3.9120992546264296`*^9, 
   3.912099256815792*^9}, {3.912099301532958*^9, 3.912099309249474*^9}, {
   3.91209955202687*^9, 3.9120995534955435`*^9}, {3.91209960411287*^9, 
   3.912099607662428*^9}, {3.9120996578376527`*^9, 3.912099721385846*^9}, {
   3.912099762960469*^9, 3.9120999204863844`*^9}, {3.9120999507214823`*^9, 
   3.9120999779995346`*^9}, {3.91210001828771*^9, 3.912100091483654*^9}, 
   3.9121001940670767`*^9, 3.912100226378045*^9, 3.912100680442647*^9, {
   3.912100721632515*^9, 3.912100721833076*^9}, {3.912100759444235*^9, 
   3.91210078229578*^9}, {3.9121008308172092`*^9, 3.9121008440070133`*^9}, {
   3.91210088483551*^9, 3.912100902006321*^9}, {3.9121009353776364`*^9, 
   3.9121009482353454`*^9}, {3.912100978439911*^9, 3.9121009863147182`*^9}, {
   3.9121010280946026`*^9, 3.9121010411866827`*^9}, {3.91210107340862*^9, 
   3.9121010978822727`*^9}, {3.912101134946556*^9, 3.912101143312108*^9}, {
   3.912101214797756*^9, 3.9121012340890913`*^9}, {3.912101268223098*^9, 
   3.912101279011117*^9}, {3.912101318517601*^9, 3.9121013329316225`*^9}, {
   3.9121013651862764`*^9, 3.9121013774482975`*^9}, {3.9146697033265104`*^9, 
   3.914669733453811*^9}, 3.9146699561970396`*^9, 3.914669995992484*^9, {
   3.9146701268348427`*^9, 3.914670127297434*^9}, {3.914670178671712*^9, 
   3.9146701850038157`*^9}, {3.9146702669277134`*^9, 3.914670267920578*^9}, {
   3.914670361183058*^9, 3.9146703708306046`*^9}, {3.91476104934625*^9, 
   3.914761050732629*^9}, {3.914761145027705*^9, 3.9147611479993877`*^9}, 
   3.960882920186767*^9, {3.9610819865845428`*^9, 3.9610820951762724`*^9}, {
   3.9610821352896185`*^9, 3.9610821544576697`*^9}, {3.961082195957009*^9, 
   3.961082198565156*^9}, {3.961082264795512*^9, 3.9610822749576163`*^9}, {
   3.9610823169867353`*^9, 3.961082346491729*^9}, {3.961082380438483*^9, 
   3.9610823854685397`*^9}, 3.9610825415554137`*^9, {3.961083595893359*^9, 
   3.9610836072162647`*^9}, {3.9610836415854473`*^9, 
   3.9610836441517677`*^9}, {3.961083683473098*^9, 3.9610837809172587`*^9}, {
   3.9610840322068663`*^9, 3.961084216064948*^9}, {3.9610842843044715`*^9, 
   3.961084284768927*^9}, {3.961084346460559*^9, 3.9610843626294127`*^9}, {
   3.961084401230154*^9, 3.961084418734665*^9}, {3.9610844635661864`*^9, 
   3.9610844729708815`*^9}, {3.9610845062986736`*^9, 3.961084518282071*^9}, {
   3.9610845536208706`*^9, 3.9610845540041795`*^9}, {3.961084593017546*^9, 
   3.961084734022169*^9}, {3.961084767819791*^9, 3.961084922005911*^9}, {
   3.961087116106316*^9, 3.961087118465333*^9}},
 CellLabel->
  "In[231]:=",ExpressionUUID->"05474526-f7d8-4a1b-935b-ecae0392745d"],

Cell[CellGroupData[{

Cell["Resolution", "Subsubsection",
 CellChangeTimes->{{3.826697519672256*^9, 3.826697580027843*^9}, {
   3.826697652352769*^9, 3.8266977554561663`*^9}, {3.8266978504549828`*^9, 
   3.8266980625810966`*^9}, {3.826698118584816*^9, 3.82669813683633*^9}, {
   3.82671708533427*^9, 3.82671711297655*^9}, {3.826717195616568*^9, 
   3.8267172879058332`*^9}, {3.8267173280925407`*^9, 3.826717333641568*^9}, {
   3.826717522821595*^9, 3.826717570299461*^9}, {3.826717680880262*^9, 
   3.826717744163055*^9}, {3.8267701655635223`*^9, 3.8267701859289627`*^9}, 
   3.8267827128347197`*^9, {3.8267828066452017`*^9, 3.82678282296761*^9}, {
   3.826783014197393*^9, 3.8267830193821793`*^9}, {3.826783053053761*^9, 
   3.8267831904013863`*^9}, {3.826783283921215*^9, 3.826783353695147*^9}, {
   3.826783398939056*^9, 3.826783468595071*^9}, {3.8267839748795967`*^9, 
   3.826784025944957*^9}, {3.826784076268982*^9, 3.826784099613714*^9}, {
   3.826802617136519*^9, 3.8268026181797743`*^9}, {3.826802651897314*^9, 
   3.82680267122538*^9}, {3.826802722431972*^9, 3.826802767546453*^9}, {
   3.826802800603544*^9, 3.826802830739423*^9}, {3.826802862078915*^9, 
   3.8268028915248327`*^9}, {3.8268029217129583`*^9, 3.826802922935287*^9}, {
   3.8325799020902243`*^9, 3.83257991082253*^9}, {3.83258017566625*^9, 
   3.832580177208193*^9}, {3.832580226339326*^9, 3.832580227036541*^9}, {
   3.832580278582456*^9, 3.8325804303569593`*^9}, {3.832580461030594*^9, 
   3.8325804766469593`*^9}, 3.832580591372081*^9, 3.8325816333865843`*^9, {
   3.832581693506543*^9, 3.83258169403688*^9}, {3.832581729792838*^9, 
   3.832581731973393*^9}, 3.8327608773441143`*^9, {3.832760912232373*^9, 
   3.832760957930429*^9}, {3.8327616436011877`*^9, 3.832761674425411*^9}, {
   3.83281481827204*^9, 3.832814824036419*^9}, {3.832814911489626*^9, 
   3.832814912218461*^9}, {3.832815028115548*^9, 3.8328150895946007`*^9}, 
   3.8328152122241592`*^9, 3.83281525241672*^9, {3.832815299537415*^9, 
   3.832815300150611*^9}, {3.8328219508123713`*^9, 3.8328219516773767`*^9}, {
   3.8328220020371017`*^9, 3.832822006343603*^9}, {3.832822042412553*^9, 
   3.832822043304326*^9}, {3.83282212518801*^9, 3.832822126103573*^9}, {
   3.832822167920742*^9, 3.832822179657393*^9}, {3.832822218391253*^9, 
   3.832822219290711*^9}, {3.832822250934577*^9, 3.832822253951581*^9}, 
   3.832822322940024*^9, {3.832822374068527*^9, 3.832822374897048*^9}, {
   3.8328224264429293`*^9, 3.8328224272685833`*^9}, {3.832822459102688*^9, 
   3.832822460137269*^9}, 3.832822508242244*^9, 3.8337133494149017`*^9, {
   3.8337133846093063`*^9, 3.833713386142579*^9}, {3.846168616840665*^9, 
   3.846168896852541*^9}, {3.846168932383956*^9, 3.8461690023694143`*^9}, {
   3.846169089428948*^9, 3.846169180556508*^9}, {3.8461692683686113`*^9, 
   3.846169350350443*^9}, {3.846169380378189*^9, 3.846169450908692*^9}, {
   3.8465644626160965`*^9, 3.8465645791262984`*^9}, {3.8465646186629257`*^9, 
   3.846564633874517*^9}, {3.846564664949559*^9, 3.8465647643150935`*^9}, {
   3.8465648836830063`*^9, 3.846564884603797*^9}, {3.846565181204013*^9, 
   3.8465652339227037`*^9}, {3.8465653002792697`*^9, 3.846565348791662*^9}, {
   3.8465653941292987`*^9, 3.846565534488723*^9}, {3.8465657634089823`*^9, 
   3.846565763831935*^9}, {3.846565817722123*^9, 3.8465658181477704`*^9}, {
   3.846565869733901*^9, 3.8465658796397505`*^9}, {3.846565922079465*^9, 
   3.846565975746462*^9}, {3.8465660412443304`*^9, 3.846566041672748*^9}, {
   3.8465660832935743`*^9, 3.846566083755465*^9}, {3.846566125150813*^9, 
   3.846566125620896*^9}, {3.8465661803508615`*^9, 3.846566181736549*^9}, {
   3.8465662246347404`*^9, 3.8465662250377464`*^9}, {3.8465662715772862`*^9, 
   3.8465662719762306`*^9}, {3.846566316131551*^9, 3.846566316542246*^9}, {
   3.846566369764449*^9, 3.846566371018426*^9}, {3.8465664146601253`*^9, 
   3.846566450868167*^9}, {3.8465664815575085`*^9, 3.846566482546114*^9}, {
   3.846566523558004*^9, 3.846566524219438*^9}, {3.846566564048211*^9, 
   3.8465665645473433`*^9}, {3.846566597287648*^9, 3.846566597731559*^9}, {
   3.846566654310875*^9, 3.8465666547324963`*^9}, {3.8465666960379333`*^9, 
   3.8465666972313366`*^9}, {3.8465667310701065`*^9, 3.846566731508182*^9}, 
   3.846566763357732*^9, {3.8465668273097878`*^9, 3.8465668564927425`*^9}, {
   3.846572142198427*^9, 3.8465721434379787`*^9}, {3.8465721954951954`*^9, 
   3.8465721959316025`*^9}, {3.8465722511116605`*^9, 3.846572251397266*^9}, {
   3.846572297723818*^9, 3.84657229810223*^9}, {3.846572344819878*^9, 
   3.8465723489396024`*^9}, {3.846572402676483*^9, 3.846572403596615*^9}, {
   3.846816887816596*^9, 3.846816907888953*^9}, {3.8468169798589993`*^9, 
   3.846816980656866*^9}, 3.8468170652502584`*^9, {3.8468171278631983`*^9, 
   3.8468171297001514`*^9}, {3.846817162308836*^9, 3.846817162677336*^9}, {
   3.846817199814546*^9, 3.846817205683964*^9}, {3.846817250389989*^9, 
   3.8468172547467213`*^9}, {3.846817317347084*^9, 3.8468173215464487`*^9}, {
   3.8468173560918417`*^9, 3.846817356498454*^9}, {3.84681741982694*^9, 
   3.8468174222333508`*^9}, {3.8468174588604684`*^9, 
   3.8468174654173975`*^9}, {3.846817497173332*^9, 3.846817497572523*^9}, {
   3.846817542156522*^9, 3.846817543737306*^9}, 3.846817613948851*^9, {
   3.846817652835613*^9, 3.8468176532845783`*^9}, {3.846817784883647*^9, 
   3.8468177896046*^9}, {3.8468178294456234`*^9, 3.8468178298116064`*^9}, {
   3.846840592748277*^9, 3.846840593469572*^9}, {3.84684072787004*^9, 
   3.8468407897975545`*^9}, {3.846840885581024*^9, 3.8468410480771875`*^9}, {
   3.846841113928362*^9, 3.846841148926806*^9}, {3.8468411953338594`*^9, 
   3.8468412622909083`*^9}, {3.846845522308096*^9, 3.8468455327493944`*^9}, {
   3.846845631440799*^9, 3.846845633055486*^9}, {3.8468457220817623`*^9, 
   3.846845722511705*^9}, {3.8468457728250885`*^9, 3.8468457732191086`*^9}, {
   3.846845825580093*^9, 3.846845830737089*^9}, {3.846845865993413*^9, 
   3.8468458663714824`*^9}, {3.846845901089572*^9, 3.846845928163545*^9}, 
   3.8468460182097683`*^9, {3.84684605586761*^9, 3.846846056274093*^9}, {
   3.8468460896448784`*^9, 3.8468460900870004`*^9}, {3.8468461218678594`*^9, 
   3.846846122263889*^9}, {3.8468461651820526`*^9, 3.8468461962369614`*^9}, {
   3.8468462277838097`*^9, 3.8468462281858234`*^9}, {3.846846277123144*^9, 
   3.846846277559677*^9}, {3.8468463084458933`*^9, 3.84684630888103*^9}, {
   3.84684634195434*^9, 3.846846342525428*^9}, {3.846846372621909*^9, 
   3.8468463731648135`*^9}, {3.8468464147153444`*^9, 3.846846417137335*^9}, {
   3.8468464492196875`*^9, 3.8468465078554893`*^9}, 3.846846545620405*^9, 
   3.8468465831183376`*^9, {3.847168350628271*^9, 3.847168356873187*^9}, {
   3.847168421581848*^9, 3.84716842325585*^9}, {3.8471684666598234`*^9, 
   3.8471684965488424`*^9}, {3.847168532728888*^9, 3.847168534785991*^9}, {
   3.8471685690342646`*^9, 3.847168569464798*^9}, 3.8471687036475515`*^9, {
   3.847168754402199*^9, 3.84716875478022*^9}, {3.847168795384446*^9, 
   3.8471687967097855`*^9}, {3.8471688552194343`*^9, 3.847168862161374*^9}, 
   3.8471818830135994`*^9, {3.847181954726035*^9, 3.8471819554131203`*^9}, {
   3.8471820020222545`*^9, 3.8471820024534235`*^9}, {3.8471820561555595`*^9, 
   3.847182056837702*^9}, {3.8471822238978186`*^9, 3.847182230085563*^9}, {
   3.84718228831876*^9, 3.847182289354521*^9}, {3.8471823419303937`*^9, 
   3.8471823422775517`*^9}, {3.8471823741229897`*^9, 
   3.8471823753188696`*^9}, {3.847182441142972*^9, 3.8471824480104837`*^9}, {
   3.847182510540641*^9, 3.847182511399679*^9}, {3.847182553783943*^9, 
   3.847182554184085*^9}, {3.8471826230179844`*^9, 3.8471826299118166`*^9}, {
   3.847182676413659*^9, 3.847182676811701*^9}, {3.8471827085581083`*^9, 
   3.847182717800353*^9}, {3.847183277543023*^9, 3.8471833042939157`*^9}, {
   3.847183364775496*^9, 3.847183368420535*^9}, {3.8471857555482073`*^9, 
   3.847185759849716*^9}, {3.8471857988380156`*^9, 3.847185799498404*^9}, {
   3.8471862464220467`*^9, 3.847186247308177*^9}, {3.8471862990537233`*^9, 
   3.8471863005417523`*^9}, {3.847186349199266*^9, 3.8471863537260284`*^9}, {
   3.8471863997277765`*^9, 3.8471864028614235`*^9}, {3.847187199011094*^9, 
   3.847187208704338*^9}, {3.847187358284011*^9, 3.847187360383865*^9}, {
   3.8471878345448847`*^9, 3.8471878374724317`*^9}, {3.8471878934430323`*^9, 
   3.847187901599221*^9}, {3.847187988945199*^9, 3.8471879894877634`*^9}, {
   3.8471880239050446`*^9, 3.847188024367765*^9}, {3.847188066721484*^9, 
   3.8471880671798053`*^9}, {3.847787549012091*^9, 3.847787583563673*^9}, {
   3.8477882007878876`*^9, 3.8477882012808805`*^9}, {3.8477882440789742`*^9, 
   3.8477882444779377`*^9}, {3.8477883297240467`*^9, 3.847788330079031*^9}, {
   3.8477883669558277`*^9, 3.847788369282047*^9}, {3.8477884125800653`*^9, 
   3.8477884129741087`*^9}, 3.8477884774711094`*^9, {3.847788528223155*^9, 
   3.8477885320155935`*^9}, {3.847788576734928*^9, 3.847788577246089*^9}, 
   3.8477886259991083`*^9, {3.847788670326703*^9, 3.8477886728459463`*^9}, {
   3.8477887164351254`*^9, 3.847788716818091*^9}, {3.847788759446004*^9, 
   3.847788760119931*^9}, 3.847789188269428*^9, {3.847789228093193*^9, 
   3.847789228572428*^9}, 3.847789370379602*^9, {3.8477894099547787`*^9, 
   3.847789410397631*^9}, {3.8477974737620935`*^9, 3.8477974775854053`*^9}, {
   3.850108910072337*^9, 3.850108948123698*^9}, {3.850109043366857*^9, 
   3.850109048500683*^9}, 
   3.862538794900494*^9},ExpressionUUID->"464bcaa6-f85f-4848-9d9a-\
8df5ece2d7f2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"resol", "[", "\[Zeta]10_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\[Mu]dotSB1", ",", "YdotSB12", ",", "de1Y", ",", "de1\[Zeta]1", ",", 
       "de1\[Mu]", ",", "sol1", ",", "Y1", ",", "\[Mu]1", ",", "\[Zeta]11", 
       ",", "\[Sigma]", ",", "x", ",", "X", ",", "e"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Mu]dotSB1", "[", 
        RowBox[{"\[Mu]_", ",", "y_", ",", "\[Zeta]1_"}], "]"}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\[Rho]", "+", "\[Delta]"}], ")"}], " ", "\[Mu]"}], " ", 
        "-", 
        RowBox[{"\[Beta]", "  ", "c1", " ", 
         SuperscriptBox["y", 
          RowBox[{
           RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Mu]", "-", 
            RowBox[{"c1", " ", 
             SuperscriptBox["y", 
              RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], " ", "-", 
        " ", 
        RowBox[{"\[Phi]", " ", 
         RowBox[{"(", 
          RowBox[{"cx", "+", "\[Zeta]1"}], ")"}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"YdotSB12", "[", 
        RowBox[{"\[Mu]_", ",", "y_"}], "]"}], "=", " ", 
       RowBox[{
        RowBox[{
         FractionBox["1", "c2"], " ", 
         RowBox[{"(", 
          RowBox[{"\[Mu]", "-", 
           RowBox[{"c1", " ", 
            SuperscriptBox["y", 
             RowBox[{"-", "\[Beta]"}]]}]}], ")"}]}], "-", 
        RowBox[{"\[Delta]", " ", "y"}]}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"de1Y", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"Y", "'"}], "[", "t", "]"}], "\[Equal]", 
        RowBox[{"YdotSB12", "[", 
         RowBox[{
          RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
          RowBox[{"Y", "[", "t", "]"}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"de1\[Zeta]1", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Zeta]1", "'"}], "[", "t", "]"}], "\[Equal]", 
        RowBox[{"\[Rho]", " ", 
         RowBox[{"\[Zeta]1", "[", "t", "]"}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"de1\[Mu]", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Mu]", "'"}], "[", "t", "]"}], "\[Equal]", 
        RowBox[{"\[Mu]dotSB1", "[", 
         RowBox[{
          RowBox[{"\[Mu]", "[", "t", "]"}], ",", 
          RowBox[{"Y", "[", "t", "]"}], ",", 
          RowBox[{"\[Zeta]1", "[", "t", "]"}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"sol1", "=", 
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"de1Y", ",", "de1\[Mu]", ",", "de1\[Zeta]1", ",", 
           RowBox[{
            RowBox[{"Y", "[", "0", "]"}], "\[Equal]", "Y0"}], ",", 
           RowBox[{
            RowBox[{"Y", "[", "Ttilde", "]"}], "\[Equal]", "Ytilde"}], ",", 
           RowBox[{
            RowBox[{"\[Zeta]1", "[", "0", "]"}], "\[Equal]", "\[Zeta]10"}]}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y", ",", "\[Mu]", ",", "\[Zeta]1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "Ttilde"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Y1", "[", "t_", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"Y", "[", "t", "]"}], "/.", 
         RowBox[{"sol1", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"\[Mu]1", "[", "t_", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"\[Mu]", "[", "t", "]"}], "/.", 
         RowBox[{"sol1", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"\[Zeta]11", "[", "t_", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"\[Zeta]1", "[", "t", "]"}], "/.", 
         RowBox[{"sol1", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"\[Sigma]", "[", "t_", "]"}], "=", 
       RowBox[{"Piecewise", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Zeta]11", "[", " ", "t", "]"}], "-", "\[Tau]tilde", 
             "+", 
             RowBox[{"\[Beta]", " ", "c1", " ", 
              SuperscriptBox[
               RowBox[{"Y1", "[", "t", "]"}], 
               RowBox[{
                RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Mu]1", "[", "t", "]"}], "-", 
                 RowBox[{"c1", " ", 
                  SuperscriptBox[
                   RowBox[{"Y1", "[", "t", "]"}], 
                   RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", 
               RowBox[{"(", 
                RowBox[{"\[Phi]", " ", "c2"}], ")"}]}]}]}], ",", 
            RowBox[{"t", "\[LessEqual]", " ", "Ttilde"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[Sigma]tilde", ",", 
            RowBox[{"t", ">", "Ttilde"}]}], "}"}]}], "}"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"x", "[", "t_", "]"}], "=", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Gamma]", "/", 
           RowBox[{"(", 
            RowBox[{"cx", "+", "\[Tau]tilde"}], ")"}]}], ")"}], "\[Epsilon]"],
         "-", 
        RowBox[{"\[Phi]", " ", 
         RowBox[{"Y1", "[", "t", "]"}]}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"X", "=", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{"x", "[", "t", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "Ttilde"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"e", "[", "t_", "]"}], "=", 
       RowBox[{"Piecewise", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "t", "]"}], "+", 
             RowBox[{"\[Phi]", " ", 
              RowBox[{"Y1", "[", "t", "]"}]}]}], ",", 
            RowBox[{"t", "<", "Ttilde"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[Phi]", " ", "Ytilde"}], ",", 
            RowBox[{"t", "\[GreaterEqual]", "Ttilde"}]}], "}"}]}], "}"}], 
        "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"X", ",", 
        RowBox[{"\[Mu]1", "[", "t", "]"}], ",", 
        RowBox[{"Y1", "[", "t", "]"}], ",", 
        RowBox[{"\[Zeta]11", "[", "t", "]"}], ",", 
        RowBox[{"\[Sigma]", "[", "t", "]"}], ",", 
        RowBox[{"x", "[", "t", "]"}], ",", 
        RowBox[{"e", "[", "t", "]"}]}], "}"}]}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Zeta]1grid", "[", 
    RowBox[{"\[Zeta]1low_", ",", "\[Zeta]1high_", ",", "n_"}], "]"}], ":=", 
   " ", 
   RowBox[{"Range", "[", 
    RowBox[{"\[Zeta]1low", ",", "\[Zeta]1high", ",", 
     FractionBox[
      RowBox[{"\[Zeta]1high", "-", "\[Zeta]1low"}], 
      RowBox[{"n", "-", "1"}]]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"iterationModule", "[", "vector_", "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\[Zeta]1low", ",", "\[Zeta]1high", ",", "grid", ",", "calculatedX", ",",
       "distanceFromX", ",", "closestElement", ",", "new\[Zeta]1low", ",", 
      "new\[Zeta]1high", ",", "newGridBoundaries", ",", "newVector"}], "}"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Zeta]1low", " ", "=", " ", 
      RowBox[{"vector", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"\[Zeta]1high", " ", "=", " ", 
      RowBox[{"vector", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"grid", " ", "=", " ", 
      RowBox[{"\[Zeta]1grid", "[", 
       RowBox[{"\[Zeta]1low", ",", "\[Zeta]1high", ",", "n"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"calculatedX", " ", "=", " ", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{"resol", ",", "grid"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"distanceFromX", " ", "=", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"calculatedX", " ", "-", " ", "Xbar"}], ")"}], "2"]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"closestElement", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"Take", "[", 
         RowBox[{"#", ",", 
          RowBox[{"Ordering", "[", 
           RowBox[{
            RowBox[{"Last", "/@", "#"}], ",", "1"}], "]"}]}], "]"}], "&"}], 
       "@", 
       RowBox[{"Thread", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"grid", ",", "distanceFromX"}], "}"}], ",", "List"}], 
        "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"new\[Zeta]1low", " ", "=", " ", 
      RowBox[{
       RowBox[{"closestElement", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"closestElement", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "\[Zeta]1low"}], 
          ")"}], " ", ".5"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"new\[Zeta]1high", " ", "=", "  ", 
      RowBox[{
       RowBox[{"closestElement", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\[Zeta]1high", "-", 
           RowBox[{"closestElement", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ")"}], " ", ".5"}], 
        ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"newGridBoundaries", "=", " ", 
      RowBox[{"{", 
       RowBox[{"new\[Zeta]1low", ",", "new\[Zeta]1high"}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"newVector", " ", "=", " ", 
      RowBox[{"{", 
       RowBox[{"newGridBoundaries", ",", "closestElement"}], "}"}]}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"iterate", "[", 
   RowBox[{"\[Zeta]1low_", ",", "\[Zeta]1high_", ",", "nbiter_"}], "]"}], ":=",
   " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "res", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"res", " ", "=", 
      RowBox[{"Nest", "[", 
       RowBox[{"iterationModule", ",", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"\[Zeta]1low", ",", "\[Zeta]1high"}], "}"}], "}"}], ",", 
        "nbiter"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<Final grid boundaries = \>\"", ",", " ", 
       RowBox[{"res", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<\[Zeta]10 = \>\"", ",", " ", 
       RowBox[{"res", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "1", ",", "1"}], "]"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<Distance from Xbar = \>\"", ",", " ", 
       RowBox[{"res", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "res"}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"\[Zeta]1low", " ", "=", "\[Zeta]1Lbound"}], ";", 
  RowBox[{"\[Zeta]1high", " ", "=", "\[Zeta]1Hbound"}], ";", " ", 
  RowBox[{"n", "=", "nt"}], ";", " ", 
  RowBox[{"nbiter", " ", "=", "nbitert"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"iterRes", " ", "=", 
   RowBox[{"iterate", "[", 
    RowBox[{"\[Zeta]1low", ",", "\[Zeta]1high", ",", "nbiter"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Zeta]10star", " ", "=", " ", 
    RowBox[{"iterRes", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "1", ",", "1"}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"ordre", " ", "des", " ", "variables", " ", "dans", " ", 
     RowBox[{"resol", " ", ":", " ", "X"}]}], ",", 
    RowBox[{"\[Mu]1", "[", "t", "]"}], ",", 
    RowBox[{"Y1", "[", "t", "]"}], ",", 
    RowBox[{"\[Zeta]11", "[", "t", "]"}], ",", 
    RowBox[{"\[Sigma]", "[", "t", "]"}], ",", 
    RowBox[{"x", "[", "t", "]"}], ",", 
    RowBox[{"e", "[", "t", "]"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Xbart", "=", 
   RowBox[{
    RowBox[{"resol", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Mu]1t", "[", "t_", "]"}], " ", "=", 
   RowBox[{
    RowBox[{"resol", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Y1t", "[", "t_", "]"}], " ", "=", 
   RowBox[{
    RowBox[{"resol", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Zeta]11t", "[", "t_", "]"}], " ", "=", 
   RowBox[{
    RowBox[{"resol", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "4", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Sigma]t", "[", "t_", "]"}], " ", "=", 
   RowBox[{
    RowBox[{"resol", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "5", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"xt", "[", "t_", "]"}], " ", "=", 
   RowBox[{
    RowBox[{"resol", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "6", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"et", "[", "t_", "]"}], " ", "=", 
   RowBox[{
    RowBox[{"resol", "[", "\[Zeta]10star", "]"}], "[", 
    RowBox[{"[", "7", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.826697519672256*^9, 3.826697580027843*^9}, {
   3.826697652352769*^9, 3.8266977554561663`*^9}, {3.8266978504549828`*^9, 
   3.8266980625810966`*^9}, {3.826698118584816*^9, 3.82669813683633*^9}, {
   3.82671708533427*^9, 3.82671711297655*^9}, {3.826717195616568*^9, 
   3.8267172879058332`*^9}, {3.8267173280925407`*^9, 3.826717333641568*^9}, {
   3.826717522821595*^9, 3.826717570299461*^9}, {3.826717680880262*^9, 
   3.826717744163055*^9}, {3.8267701655635223`*^9, 3.8267701859289627`*^9}, 
   3.8267827128347197`*^9, {3.8267828066452017`*^9, 3.82678282296761*^9}, {
   3.826783014197393*^9, 3.8267830193821793`*^9}, {3.826783053053761*^9, 
   3.8267831904013863`*^9}, {3.826783283921215*^9, 3.826783353695147*^9}, {
   3.826783398939056*^9, 3.826783468595071*^9}, {3.8267839748795967`*^9, 
   3.826784025944957*^9}, {3.826784076268982*^9, 3.826784099613714*^9}, {
   3.826802617136519*^9, 3.8268026181797743`*^9}, {3.826802651897314*^9, 
   3.82680267122538*^9}, {3.826802722431972*^9, 3.826802767546453*^9}, {
   3.826802800603544*^9, 3.826802830739423*^9}, {3.826802862078915*^9, 
   3.8268028915248327`*^9}, {3.8268029217129583`*^9, 3.826802922935287*^9}, {
   3.8325799020902243`*^9, 3.83257991082253*^9}, {3.83258017566625*^9, 
   3.832580177208193*^9}, {3.832580226339326*^9, 3.832580227036541*^9}, {
   3.832580278582456*^9, 3.8325804303569593`*^9}, {3.832580461030594*^9, 
   3.8325804766469593`*^9}, 3.832580591372081*^9, 3.8325816333865843`*^9, {
   3.832581693506543*^9, 3.83258169403688*^9}, {3.832581729792838*^9, 
   3.832581731973393*^9}, 3.8327608773441143`*^9, {3.832760912232373*^9, 
   3.832760957930429*^9}, {3.8327616436011877`*^9, 3.832761674425411*^9}, {
   3.83281481827204*^9, 3.832814824036419*^9}, {3.832814911489626*^9, 
   3.832814912218461*^9}, {3.832815028115548*^9, 3.8328150895946007`*^9}, 
   3.8328152122241592`*^9, 3.83281525241672*^9, {3.832815299537415*^9, 
   3.832815300150611*^9}, {3.8328219508123713`*^9, 3.8328219516773767`*^9}, {
   3.8328220020371017`*^9, 3.832822006343603*^9}, {3.832822042412553*^9, 
   3.832822043304326*^9}, {3.83282212518801*^9, 3.832822126103573*^9}, {
   3.832822167920742*^9, 3.832822179657393*^9}, {3.832822218391253*^9, 
   3.832822219290711*^9}, {3.832822250934577*^9, 3.832822253951581*^9}, 
   3.832822322940024*^9, {3.832822374068527*^9, 3.832822374897048*^9}, {
   3.8328224264429293`*^9, 3.8328224272685833`*^9}, {3.832822459102688*^9, 
   3.832822460137269*^9}, 3.832822508242244*^9, 3.8337133494149017`*^9, {
   3.8337133846093063`*^9, 3.833713386142579*^9}, {3.846168616840665*^9, 
   3.846168896852541*^9}, {3.846168932383956*^9, 3.8461690023694143`*^9}, {
   3.846169089428948*^9, 3.846169180556508*^9}, {3.8461692683686113`*^9, 
   3.846169350350443*^9}, {3.846169380378189*^9, 3.846169450908692*^9}, {
   3.8465644626160965`*^9, 3.8465645791262984`*^9}, {3.8465646186629257`*^9, 
   3.846564633874517*^9}, {3.846564664949559*^9, 3.8465647643150935`*^9}, {
   3.8465648836830063`*^9, 3.846564884603797*^9}, {3.846565181204013*^9, 
   3.8465652339227037`*^9}, {3.8465653002792697`*^9, 3.846565348791662*^9}, {
   3.8465653941292987`*^9, 3.846565534488723*^9}, {3.8465657634089823`*^9, 
   3.846565763831935*^9}, {3.846565817722123*^9, 3.8465658181477704`*^9}, {
   3.846565869733901*^9, 3.8465658796397505`*^9}, {3.846565922079465*^9, 
   3.846565975746462*^9}, {3.8465660412443304`*^9, 3.846566041672748*^9}, {
   3.8465660832935743`*^9, 3.846566083755465*^9}, {3.846566125150813*^9, 
   3.846566125620896*^9}, {3.8465661803508615`*^9, 3.846566181736549*^9}, {
   3.8465662246347404`*^9, 3.8465662250377464`*^9}, {3.8465662715772862`*^9, 
   3.8465662719762306`*^9}, {3.846566316131551*^9, 3.846566316542246*^9}, {
   3.846566369764449*^9, 3.846566371018426*^9}, {3.8465664146601253`*^9, 
   3.846566450868167*^9}, {3.8465664815575085`*^9, 3.846566482546114*^9}, {
   3.846566523558004*^9, 3.846566524219438*^9}, {3.846566564048211*^9, 
   3.8465665645473433`*^9}, {3.846566597287648*^9, 3.846566597731559*^9}, {
   3.846566654310875*^9, 3.8465666547324963`*^9}, {3.8465666960379333`*^9, 
   3.8465666972313366`*^9}, {3.8465667310701065`*^9, 3.846566731508182*^9}, 
   3.846566763357732*^9, {3.8465668273097878`*^9, 3.8465668564927425`*^9}, {
   3.846572142198427*^9, 3.8465721434379787`*^9}, {3.8465721954951954`*^9, 
   3.8465721959316025`*^9}, {3.8465722511116605`*^9, 3.846572251397266*^9}, {
   3.846572297723818*^9, 3.84657229810223*^9}, {3.846572344819878*^9, 
   3.8465723489396024`*^9}, {3.846572402676483*^9, 3.846572403596615*^9}, {
   3.846816887816596*^9, 3.846816907888953*^9}, {3.8468169798589993`*^9, 
   3.846816980656866*^9}, 3.8468170652502584`*^9, {3.8468171278631983`*^9, 
   3.8468171297001514`*^9}, {3.846817162308836*^9, 3.846817162677336*^9}, {
   3.846817199814546*^9, 3.846817205683964*^9}, {3.846817250389989*^9, 
   3.8468172547467213`*^9}, {3.846817317347084*^9, 3.8468173215464487`*^9}, {
   3.8468173560918417`*^9, 3.846817356498454*^9}, {3.84681741982694*^9, 
   3.8468174222333508`*^9}, {3.8468174588604684`*^9, 
   3.8468174654173975`*^9}, {3.846817497173332*^9, 3.846817497572523*^9}, {
   3.846817542156522*^9, 3.846817543737306*^9}, 3.846817613948851*^9, {
   3.846817652835613*^9, 3.8468176532845783`*^9}, {3.846817784883647*^9, 
   3.8468177896046*^9}, {3.8468178294456234`*^9, 3.8468178298116064`*^9}, {
   3.846840592748277*^9, 3.846840593469572*^9}, {3.84684072787004*^9, 
   3.8468407897975545`*^9}, {3.846840885581024*^9, 3.8468410480771875`*^9}, {
   3.846841113928362*^9, 3.846841148926806*^9}, {3.8468411953338594`*^9, 
   3.8468412622909083`*^9}, {3.846845522308096*^9, 3.8468455327493944`*^9}, {
   3.846845631440799*^9, 3.846845633055486*^9}, {3.8468457220817623`*^9, 
   3.846845722511705*^9}, {3.8468457728250885`*^9, 3.8468457732191086`*^9}, {
   3.846845825580093*^9, 3.846845830737089*^9}, {3.846845865993413*^9, 
   3.8468458663714824`*^9}, {3.846845901089572*^9, 3.846845928163545*^9}, 
   3.8468460182097683`*^9, {3.84684605586761*^9, 3.846846056274093*^9}, {
   3.8468460896448784`*^9, 3.8468460900870004`*^9}, {3.8468461218678594`*^9, 
   3.846846122263889*^9}, {3.8468461651820526`*^9, 3.8468461962369614`*^9}, {
   3.8468462277838097`*^9, 3.8468462281858234`*^9}, {3.846846277123144*^9, 
   3.846846277559677*^9}, {3.8468463084458933`*^9, 3.84684630888103*^9}, {
   3.84684634195434*^9, 3.846846342525428*^9}, {3.846846372621909*^9, 
   3.8468463731648135`*^9}, {3.8468464147153444`*^9, 3.846846417137335*^9}, {
   3.8468464492196875`*^9, 3.8468465078554893`*^9}, 3.846846545620405*^9, 
   3.8468465831183376`*^9, {3.847168350628271*^9, 3.847168356873187*^9}, {
   3.847168421581848*^9, 3.84716842325585*^9}, {3.8471684666598234`*^9, 
   3.8471684965488424`*^9}, {3.847168532728888*^9, 3.847168534785991*^9}, {
   3.8471685690342646`*^9, 3.847168569464798*^9}, 3.8471687036475515`*^9, {
   3.847168754402199*^9, 3.84716875478022*^9}, {3.847168795384446*^9, 
   3.8471687967097855`*^9}, {3.8471688552194343`*^9, 3.847168862161374*^9}, 
   3.8471818830135994`*^9, {3.847181954726035*^9, 3.8471819554131203`*^9}, {
   3.8471820020222545`*^9, 3.8471820024534235`*^9}, {3.8471820561555595`*^9, 
   3.847182056837702*^9}, {3.8471822238978186`*^9, 3.847182230085563*^9}, {
   3.84718228831876*^9, 3.847182289354521*^9}, {3.8471823419303937`*^9, 
   3.8471823422775517`*^9}, {3.8471823741229897`*^9, 
   3.8471823753188696`*^9}, {3.847182441142972*^9, 3.8471824480104837`*^9}, {
   3.847182510540641*^9, 3.847182511399679*^9}, {3.847182553783943*^9, 
   3.847182554184085*^9}, {3.8471826230179844`*^9, 3.8471826299118166`*^9}, {
   3.847182676413659*^9, 3.847182676811701*^9}, {3.8471827085581083`*^9, 
   3.847182717800353*^9}, {3.847183277543023*^9, 3.8471833042939157`*^9}, {
   3.847183364775496*^9, 3.847183368420535*^9}, {3.8471857555482073`*^9, 
   3.847185759849716*^9}, {3.8471857988380156`*^9, 3.847185799498404*^9}, {
   3.8471862464220467`*^9, 3.847186247308177*^9}, {3.8471862990537233`*^9, 
   3.8471863005417523`*^9}, {3.847186349199266*^9, 3.8471863537260284`*^9}, {
   3.8471863997277765`*^9, 3.8471864028614235`*^9}, {3.847187199011094*^9, 
   3.847187208704338*^9}, {3.847187358284011*^9, 3.847187360383865*^9}, {
   3.8471878345448847`*^9, 3.8471878374724317`*^9}, {3.8471878934430323`*^9, 
   3.847187901599221*^9}, {3.847187988945199*^9, 3.8471879894877634`*^9}, {
   3.8471880239050446`*^9, 3.847188024367765*^9}, {3.847188066721484*^9, 
   3.8471880671798053`*^9}, {3.847787549012091*^9, 3.847787583563673*^9}, {
   3.8477882007878876`*^9, 3.8477882012808805`*^9}, {3.8477882440789742`*^9, 
   3.8477882444779377`*^9}, {3.8477883297240467`*^9, 3.847788330079031*^9}, {
   3.8477883669558277`*^9, 3.847788369282047*^9}, {3.8477884125800653`*^9, 
   3.8477884129741087`*^9}, 3.8477884774711094`*^9, {3.847788528223155*^9, 
   3.8477885320155935`*^9}, {3.847788576734928*^9, 3.847788577246089*^9}, 
   3.8477886259991083`*^9, {3.847788670326703*^9, 3.8477886728459463`*^9}, {
   3.8477887164351254`*^9, 3.847788716818091*^9}, {3.847788759446004*^9, 
   3.847788760119931*^9}, 3.847789188269428*^9, {3.847789228093193*^9, 
   3.847789228572428*^9}, 3.847789370379602*^9, {3.8477894099547787`*^9, 
   3.847789410397631*^9}, {3.8477974737620935`*^9, 3.8477974775854053`*^9}, {
   3.850108910072337*^9, 3.850108948123698*^9}, {3.8501114965688*^9, 
   3.8501115646414223`*^9}, {3.850111622211726*^9, 3.850111647535722*^9}, {
   3.850111752087123*^9, 3.850111767141864*^9}, 3.850111805420397*^9, {
   3.8501119195332327`*^9, 3.850112010576271*^9}, {3.8501127145721493`*^9, 
   3.8501127157769012`*^9}, {3.850132090613768*^9, 3.850132093082432*^9}, {
   3.850135587965508*^9, 3.850135593267927*^9}, {3.85013597398726*^9, 
   3.850135974828233*^9}, {3.850136180358485*^9, 3.850136181091742*^9}, {
   3.850136681413348*^9, 3.85013668572151*^9}, {3.8501367254338284`*^9, 
   3.850136725950431*^9}, 3.85013685967074*^9, {3.850137024369426*^9, 
   3.850137025939783*^9}, {3.850137247456945*^9, 3.850137248232656*^9}, {
   3.850137287330532*^9, 3.850137288039843*^9}, {3.850137336317925*^9, 
   3.8501373417764397`*^9}, {3.850137480998705*^9, 3.850137482713292*^9}, {
   3.8502170413188868`*^9, 3.850217047796528*^9}, {3.850476669094256*^9, 
   3.850476697343203*^9}, {3.850477078755104*^9, 3.850477151179681*^9}, {
   3.850477188388186*^9, 3.850477275617764*^9}, {3.850477395065304*^9, 
   3.850477425028928*^9}, {3.850477802033983*^9, 3.8504778070014963`*^9}, {
   3.850477909692264*^9, 3.850477912008066*^9}, {3.850479398932445*^9, 
   3.8504794047414*^9}, {3.850480062523988*^9, 3.8504800632439833`*^9}, {
   3.850480129848611*^9, 3.8504801481156683`*^9}, {3.8504802913292637`*^9, 
   3.850480297834621*^9}, {3.850480353378854*^9, 3.850480354112331*^9}, {
   3.850480489195303*^9, 3.8504804931022863`*^9}, {3.850480705283112*^9, 
   3.850480707654261*^9}, 3.850480782638505*^9, {3.850638689611497*^9, 
   3.850638697337532*^9}, {3.850814159481564*^9, 3.850814159652153*^9}, {
   3.851248796632031*^9, 3.851248800868826*^9}, 3.85124892339989*^9, {
   3.85124898146382*^9, 3.851249031151658*^9}, {3.85124910777227*^9, 
   3.8512491152196093`*^9}, {3.851249555790757*^9, 3.851249582485993*^9}, {
   3.851249767671043*^9, 3.851249888852468*^9}, {3.851249925994191*^9, 
   3.851249979690826*^9}, {3.851251614055764*^9, 3.8512518932890177`*^9}, {
   3.851251935249992*^9, 3.85125200486299*^9}, {3.851252036381237*^9, 
   3.851252103485935*^9}, {3.8512522264237967`*^9, 3.851252227413898*^9}, {
   3.851252330777123*^9, 3.851252331391926*^9}, {3.851252468749271*^9, 
   3.8512524736114388`*^9}, {3.851252540060317*^9, 3.851252546051319*^9}, {
   3.851252622206978*^9, 3.8512526553116837`*^9}, {3.8512527709028254`*^9, 
   3.851252771518916*^9}, {3.851252850944086*^9, 3.851252857181979*^9}, {
   3.851253303830407*^9, 3.851253304682146*^9}, {3.851253501051877*^9, 
   3.851253544967314*^9}, {3.8512535870779867`*^9, 3.851253598227655*^9}, {
   3.8512540573011312`*^9, 3.851254064014326*^9}, {3.851254188968979*^9, 
   3.851254189798212*^9}, {3.8512551643592978`*^9, 3.851255165662714*^9}, {
   3.851316195693843*^9, 3.85131620650035*^9}, {3.851316669371159*^9, 
   3.851316691612729*^9}, 3.851316740621084*^9, {3.851316890855932*^9, 
   3.851316891230165*^9}, {3.851321644332515*^9, 3.851321648352605*^9}, {
   3.851329904364872*^9, 3.8513299089671803`*^9}, {3.851330082890958*^9, 
   3.851330090638014*^9}, {3.851330196794897*^9, 3.851330200752015*^9}, {
   3.8513306890070667`*^9, 3.8513306935530987`*^9}, {3.851330831267931*^9, 
   3.851330833454905*^9}, {3.851330883220151*^9, 3.8513308839439287`*^9}, {
   3.851330929740088*^9, 3.851330930331108*^9}, {3.85133097448538*^9, 
   3.8513309748652487`*^9}, {3.851331038788168*^9, 3.851331039453348*^9}, {
   3.851331079862323*^9, 3.8513310805358353`*^9}, {3.851331137807798*^9, 
   3.851331138486108*^9}, {3.851336008237627*^9, 3.851336009568375*^9}, {
   3.851336070428228*^9, 3.851336075852333*^9}, {3.851336469180975*^9, 
   3.851336469681879*^9}, {3.851336516765485*^9, 3.85133651734708*^9}, {
   3.8513365920422897`*^9, 3.851336594861429*^9}, {3.851336644634079*^9, 
   3.8513366462104797`*^9}, {3.8513370037732677`*^9, 3.85133700441374*^9}, 
   3.851337069347938*^9, {3.8513371186033573`*^9, 3.851337119828384*^9}, {
   3.851337191643141*^9, 3.851337192593295*^9}, {3.853904818406815*^9, 
   3.8539048520491133`*^9}, {3.853904889427793*^9, 3.853904889991356*^9}, {
   3.8539052094250927`*^9, 3.853905211617517*^9}, {3.853905303184709*^9, 
   3.853905303483242*^9}, {3.8539054043411493`*^9, 3.853905404916112*^9}, {
   3.8539054365141068`*^9, 3.8539054371422358`*^9}, 3.853905488716786*^9, {
   3.853905530603693*^9, 3.8539055317075043`*^9}, {3.8539055746688433`*^9, 
   3.853905575114563*^9}, {3.853905622039074*^9, 3.853905622530801*^9}, {
   3.853905676856039*^9, 3.8539056770624857`*^9}, {3.853905729002304*^9, 
   3.8539057301959047`*^9}, {3.853905787192555*^9, 3.853905788038525*^9}, {
   3.853905836412106*^9, 3.853905837011847*^9}, {3.854715174571384*^9, 
   3.854715176844696*^9}, {3.8547152106152067`*^9, 3.8547152114694757`*^9}, {
   3.854715246071734*^9, 3.85471524845043*^9}, {3.8547152857497673`*^9, 
   3.854715285879491*^9}, {3.854715323064591*^9, 3.8547153233677273`*^9}, 
   3.8547153563677397`*^9, {3.854715389274358*^9, 3.854715390856089*^9}, {
   3.8547154237509527`*^9, 3.854715424291875*^9}, {3.854715566466976*^9, 
   3.854715569498444*^9}, {3.854715686733345*^9, 3.854715687577518*^9}, {
   3.8547157179232693`*^9, 3.854715720518458*^9}, {3.854715756229101*^9, 
   3.8547157575570507`*^9}, 3.8547157913899183`*^9, {3.854715931578889*^9, 
   3.854715961929895*^9}, 3.854716002522266*^9, 3.854716038308037*^9, {
   3.854716069067272*^9, 3.854716069736949*^9}, {3.854716140241096*^9, 
   3.8547161407682734`*^9}, {3.862224708628531*^9, 3.86222471525697*^9}, {
   3.862224758963107*^9, 3.862224943600773*^9}, {3.8622252246356*^9, 
   3.862225225166757*^9}, {3.862225270615343*^9, 3.862225271284902*^9}, {
   3.8622253439027863`*^9, 3.862225344466773*^9}, {3.862225479106642*^9, 
   3.862225480535006*^9}, {3.862225565808269*^9, 3.862225566374569*^9}, {
   3.862539002961502*^9, 3.862539003683611*^9}, {3.8625396843667994`*^9, 
   3.862539684874789*^9}, {3.862539770073537*^9, 3.862539771949497*^9}, {
   3.862539863742947*^9, 3.862539864261829*^9}, {3.862539952400751*^9, 
   3.86253995325959*^9}, {3.862540008269495*^9, 3.862540008932869*^9}, {
   3.862540108537837*^9, 3.862540110220729*^9}, {3.862540159733141*^9, 
   3.862540160470965*^9}, {3.862542159820856*^9, 3.8625421606554937`*^9}, {
   3.862559879884585*^9, 3.862559880731948*^9}, {3.862560022990088*^9, 
   3.8625600246650867`*^9}, {3.864809548087659*^9, 3.8648095493612013`*^9}, {
   3.864809663133173*^9, 3.8648096645244904`*^9}, {3.879583399691168*^9, 
   3.879583400808304*^9}, {3.879583505677403*^9, 3.8795835068744183`*^9}, {
   3.879583566926681*^9, 3.8795835682112637`*^9}, {3.879583679978256*^9, 
   3.879583680662322*^9}, {3.87958378538623*^9, 3.879583787913517*^9}, {
   3.879586263683978*^9, 3.8795862638213787`*^9}, {3.8795866186387568`*^9, 
   3.879586627808297*^9}, {3.8795868032515574`*^9, 3.879586805079351*^9}, {
   3.879586910787636*^9, 3.879586911908669*^9}, {3.879739363214982*^9, 
   3.879739378710409*^9}, {3.882607370408841*^9, 3.882607371387031*^9}, {
   3.882607412239779*^9, 3.882607413168632*^9}, {3.88260745356069*^9, 
   3.882607454359432*^9}, {3.882938327845747*^9, 3.882938328505869*^9}, {
   3.882938363674995*^9, 3.882938364567625*^9}, {3.882938400333762*^9, 
   3.882938401240486*^9}, {3.882938446813293*^9, 3.88293844865197*^9}, {
   3.882938490426772*^9, 3.882938491266199*^9}, {3.882938535391954*^9, 
   3.882938536383168*^9}, {3.8829385846917477`*^9, 3.882938585688127*^9}, {
   3.882940084234034*^9, 3.8829400853803253`*^9}, {3.8829401206676683`*^9, 
   3.882940122662903*^9}, {3.8829401599753237`*^9, 3.882940163643186*^9}, {
   3.882940200708453*^9, 3.882940201768176*^9}, {3.88294025056647*^9, 
   3.882940262106517*^9}, {3.8836397222329063`*^9, 3.8836397302847114`*^9}, 
   3.884967508709505*^9, 3.884968183023119*^9, {3.8849682270428796`*^9, 
   3.88496822770735*^9}, {3.8872558880938945`*^9, 3.8872559614447236`*^9}, {
   3.887256136005577*^9, 3.887256140795974*^9}, {3.8962683323007193`*^9, 
   3.896268342185133*^9}, {3.896268380002879*^9, 3.896268410666731*^9}, 
   3.8962685204795113`*^9, 3.896268712668797*^9, {3.896270098126195*^9, 
   3.896270099034011*^9}, {3.9610822849795566`*^9, 3.961082294896226*^9}, {
   3.9610823669452333`*^9, 3.9610823698386145`*^9}, {3.961083510086506*^9, 
   3.961083552160741*^9}, {3.961084628676424*^9, 3.9610846312175503`*^9}, 
   3.9610850288598337`*^9, 3.961088034097955*^9},
 CellLabel->
  "In[247]:=",ExpressionUUID->"bbbe8a4b-78a4-482f-8aa4-329c0500b255"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Results", "Subsubsection"]], "Subsubsection",
 CellChangeTimes->{{3.826697519672256*^9, 3.826697580027843*^9}, {
   3.826697652352769*^9, 3.8266977554561663`*^9}, {3.8266978504549828`*^9, 
   3.8266980625810966`*^9}, {3.826698118584816*^9, 3.82669813683633*^9}, {
   3.82671708533427*^9, 3.82671711297655*^9}, {3.826717195616568*^9, 
   3.8267172879058332`*^9}, {3.8267173280925407`*^9, 3.826717333641568*^9}, {
   3.826717522821595*^9, 3.826717570299461*^9}, {3.826717680880262*^9, 
   3.826717744163055*^9}, {3.8267701655635223`*^9, 3.8267701859289627`*^9}, 
   3.8267827128347197`*^9, {3.8267828066452017`*^9, 3.82678282296761*^9}, {
   3.826783014197393*^9, 3.8267830193821793`*^9}, {3.826783053053761*^9, 
   3.8267831904013863`*^9}, {3.826783283921215*^9, 3.826783353695147*^9}, {
   3.826783398939056*^9, 3.826783468595071*^9}, {3.8267839748795967`*^9, 
   3.826784025944957*^9}, {3.826784076268982*^9, 3.826784099613714*^9}, {
   3.826802617136519*^9, 3.8268026181797743`*^9}, {3.826802651897314*^9, 
   3.82680267122538*^9}, {3.826802722431972*^9, 3.826802767546453*^9}, {
   3.826802800603544*^9, 3.826802830739423*^9}, {3.826802862078915*^9, 
   3.8268028915248327`*^9}, {3.8268029217129583`*^9, 3.826802922935287*^9}, {
   3.8325799020902243`*^9, 3.83257991082253*^9}, {3.83258017566625*^9, 
   3.832580177208193*^9}, {3.832580226339326*^9, 3.832580227036541*^9}, {
   3.832580278582456*^9, 3.8325804303569593`*^9}, {3.832580461030594*^9, 
   3.8325804766469593`*^9}, 3.832580591372081*^9, 3.8325816333865843`*^9, {
   3.832581693506543*^9, 3.83258169403688*^9}, {3.832581729792838*^9, 
   3.832581731973393*^9}, 3.8327608773441143`*^9, {3.832760912232373*^9, 
   3.832760957930429*^9}, {3.8327616436011877`*^9, 3.832761674425411*^9}, {
   3.83281481827204*^9, 3.832814824036419*^9}, {3.832814911489626*^9, 
   3.832814912218461*^9}, {3.832815028115548*^9, 3.8328150895946007`*^9}, 
   3.8328152122241592`*^9, 3.83281525241672*^9, {3.832815299537415*^9, 
   3.832815300150611*^9}, {3.8328219508123713`*^9, 3.8328219516773767`*^9}, {
   3.8328220020371017`*^9, 3.832822006343603*^9}, {3.832822042412553*^9, 
   3.832822043304326*^9}, {3.83282212518801*^9, 3.832822126103573*^9}, {
   3.832822167920742*^9, 3.832822179657393*^9}, {3.832822218391253*^9, 
   3.832822219290711*^9}, {3.832822250934577*^9, 3.832822253951581*^9}, 
   3.832822322940024*^9, {3.832822374068527*^9, 3.832822374897048*^9}, {
   3.8328224264429293`*^9, 3.8328224272685833`*^9}, {3.832822459102688*^9, 
   3.832822460137269*^9}, 3.832822508242244*^9, 3.8337133494149017`*^9, {
   3.8337133846093063`*^9, 3.833713386142579*^9}, {3.846168616840665*^9, 
   3.846168896852541*^9}, {3.846168932383956*^9, 3.8461690023694143`*^9}, {
   3.846169089428948*^9, 3.846169180556508*^9}, {3.8461692683686113`*^9, 
   3.846169350350443*^9}, {3.846169380378189*^9, 3.846169450908692*^9}, {
   3.8465644626160965`*^9, 3.8465645791262984`*^9}, {3.8465646186629257`*^9, 
   3.846564633874517*^9}, {3.846564664949559*^9, 3.8465647643150935`*^9}, {
   3.8465648836830063`*^9, 3.846564884603797*^9}, {3.846565181204013*^9, 
   3.8465652339227037`*^9}, {3.8465653002792697`*^9, 3.846565348791662*^9}, {
   3.8465653941292987`*^9, 3.846565534488723*^9}, {3.8465657634089823`*^9, 
   3.846565763831935*^9}, {3.846565817722123*^9, 3.8465658181477704`*^9}, {
   3.846565869733901*^9, 3.8465658796397505`*^9}, {3.846565922079465*^9, 
   3.846565975746462*^9}, {3.8465660412443304`*^9, 3.846566041672748*^9}, {
   3.8465660832935743`*^9, 3.846566083755465*^9}, {3.846566125150813*^9, 
   3.846566125620896*^9}, {3.8465661803508615`*^9, 3.846566181736549*^9}, {
   3.8465662246347404`*^9, 3.8465662250377464`*^9}, {3.8465662715772862`*^9, 
   3.8465662719762306`*^9}, {3.846566316131551*^9, 3.846566316542246*^9}, {
   3.846566369764449*^9, 3.846566371018426*^9}, {3.8465664146601253`*^9, 
   3.846566450868167*^9}, {3.8465664815575085`*^9, 3.846566482546114*^9}, {
   3.846566523558004*^9, 3.846566524219438*^9}, {3.846566564048211*^9, 
   3.8465665645473433`*^9}, {3.846566597287648*^9, 3.846566597731559*^9}, {
   3.846566654310875*^9, 3.8465666547324963`*^9}, {3.8465666960379333`*^9, 
   3.8465666972313366`*^9}, {3.8465667310701065`*^9, 3.846566731508182*^9}, 
   3.846566763357732*^9, {3.8465668273097878`*^9, 3.8465668564927425`*^9}, {
   3.846572142198427*^9, 3.8465721434379787`*^9}, {3.8465721954951954`*^9, 
   3.8465721959316025`*^9}, {3.8465722511116605`*^9, 3.846572251397266*^9}, {
   3.846572297723818*^9, 3.84657229810223*^9}, {3.846572344819878*^9, 
   3.8465723489396024`*^9}, {3.846572402676483*^9, 3.846572403596615*^9}, {
   3.846816887816596*^9, 3.846816907888953*^9}, {3.8468169798589993`*^9, 
   3.846816980656866*^9}, 3.8468170652502584`*^9, {3.8468171278631983`*^9, 
   3.8468171297001514`*^9}, {3.846817162308836*^9, 3.846817162677336*^9}, {
   3.846817199814546*^9, 3.846817205683964*^9}, {3.846817250389989*^9, 
   3.8468172547467213`*^9}, {3.846817317347084*^9, 3.8468173215464487`*^9}, {
   3.8468173560918417`*^9, 3.846817356498454*^9}, {3.84681741982694*^9, 
   3.8468174222333508`*^9}, {3.8468174588604684`*^9, 
   3.8468174654173975`*^9}, {3.846817497173332*^9, 3.846817497572523*^9}, {
   3.846817542156522*^9, 3.846817543737306*^9}, 3.846817613948851*^9, {
   3.846817652835613*^9, 3.8468176532845783`*^9}, {3.846817784883647*^9, 
   3.8468177896046*^9}, {3.8468178294456234`*^9, 3.8468178298116064`*^9}, {
   3.846840592748277*^9, 3.846840593469572*^9}, {3.84684072787004*^9, 
   3.8468407897975545`*^9}, {3.846840885581024*^9, 3.8468410480771875`*^9}, {
   3.846841113928362*^9, 3.846841148926806*^9}, {3.8468411953338594`*^9, 
   3.8468412622909083`*^9}, {3.846845522308096*^9, 3.8468455327493944`*^9}, {
   3.846845631440799*^9, 3.846845633055486*^9}, {3.8468457220817623`*^9, 
   3.846845722511705*^9}, {3.8468457728250885`*^9, 3.8468457732191086`*^9}, {
   3.846845825580093*^9, 3.846845830737089*^9}, {3.846845865993413*^9, 
   3.8468458663714824`*^9}, {3.846845901089572*^9, 3.846845928163545*^9}, 
   3.8468460182097683`*^9, {3.84684605586761*^9, 3.846846056274093*^9}, {
   3.8468460896448784`*^9, 3.8468460900870004`*^9}, {3.8468461218678594`*^9, 
   3.846846122263889*^9}, {3.8468461651820526`*^9, 3.8468461962369614`*^9}, {
   3.8468462277838097`*^9, 3.8468462281858234`*^9}, {3.846846277123144*^9, 
   3.846846277559677*^9}, {3.8468463084458933`*^9, 3.84684630888103*^9}, {
   3.84684634195434*^9, 3.846846342525428*^9}, {3.846846372621909*^9, 
   3.8468463731648135`*^9}, {3.8468464147153444`*^9, 3.846846417137335*^9}, {
   3.8468464492196875`*^9, 3.8468465078554893`*^9}, 3.846846545620405*^9, 
   3.8468465831183376`*^9, {3.847168350628271*^9, 3.847168356873187*^9}, {
   3.847168421581848*^9, 3.84716842325585*^9}, {3.8471684666598234`*^9, 
   3.8471684965488424`*^9}, {3.847168532728888*^9, 3.847168534785991*^9}, {
   3.8471685690342646`*^9, 3.847168569464798*^9}, 3.8471687036475515`*^9, {
   3.847168754402199*^9, 3.84716875478022*^9}, {3.847168795384446*^9, 
   3.8471687967097855`*^9}, {3.8471688552194343`*^9, 3.847168862161374*^9}, 
   3.8471818830135994`*^9, {3.847181954726035*^9, 3.8471819554131203`*^9}, {
   3.8471820020222545`*^9, 3.8471820024534235`*^9}, {3.8471820561555595`*^9, 
   3.847182056837702*^9}, {3.8471822238978186`*^9, 3.847182230085563*^9}, {
   3.84718228831876*^9, 3.847182289354521*^9}, {3.8471823419303937`*^9, 
   3.8471823422775517`*^9}, {3.8471823741229897`*^9, 
   3.8471823753188696`*^9}, {3.847182441142972*^9, 3.8471824480104837`*^9}, {
   3.847182510540641*^9, 3.847182511399679*^9}, {3.847182553783943*^9, 
   3.847182554184085*^9}, {3.8471826230179844`*^9, 3.8471826299118166`*^9}, {
   3.847182676413659*^9, 3.847182676811701*^9}, {3.8471827085581083`*^9, 
   3.847182717800353*^9}, {3.847183277543023*^9, 3.8471833042939157`*^9}, {
   3.847183364775496*^9, 3.847183368420535*^9}, {3.8471857555482073`*^9, 
   3.847185759849716*^9}, {3.8471857988380156`*^9, 3.847185799498404*^9}, {
   3.8471862464220467`*^9, 3.847186247308177*^9}, {3.8471862990537233`*^9, 
   3.8471863005417523`*^9}, {3.847186349199266*^9, 3.8471863537260284`*^9}, {
   3.8471863997277765`*^9, 3.8471864028614235`*^9}, {3.847187199011094*^9, 
   3.847187208704338*^9}, {3.847187358284011*^9, 3.847187360383865*^9}, {
   3.8471878345448847`*^9, 3.8471878374724317`*^9}, {3.8471878934430323`*^9, 
   3.847187901599221*^9}, {3.847187988945199*^9, 3.8471879894877634`*^9}, {
   3.8471880239050446`*^9, 3.847188024367765*^9}, {3.847188066721484*^9, 
   3.8471880671798053`*^9}, {3.847787549012091*^9, 3.847787583563673*^9}, {
   3.8477882007878876`*^9, 3.8477882012808805`*^9}, {3.8477882440789742`*^9, 
   3.8477882444779377`*^9}, {3.8477883297240467`*^9, 3.847788330079031*^9}, {
   3.8477883669558277`*^9, 3.847788369282047*^9}, {3.8477884125800653`*^9, 
   3.8477884129741087`*^9}, 3.8477884774711094`*^9, {3.847788528223155*^9, 
   3.8477885320155935`*^9}, {3.847788576734928*^9, 3.847788577246089*^9}, 
   3.8477886259991083`*^9, {3.847788670326703*^9, 3.8477886728459463`*^9}, {
   3.8477887164351254`*^9, 3.847788716818091*^9}, {3.847788759446004*^9, 
   3.847788760119931*^9}, 3.847789188269428*^9, {3.847789228093193*^9, 
   3.847789228572428*^9}, 3.847789370379602*^9, {3.8477894099547787`*^9, 
   3.847789410397631*^9}, {3.8477974737620935`*^9, 3.8477974775854053`*^9}, {
   3.850108910072337*^9, 3.850108917914495*^9}, {3.850109008579508*^9, 
   3.850109017311672*^9}, 3.850111473800208*^9, 3.850111680344401*^9, {
   3.8501118809059267`*^9, 3.8501119008645887`*^9}, {3.9610879556178265`*^9, 
   3.9610879569000454`*^9}},ExpressionUUID->"6fbe8b13-c9e7-47e3-bc79-\
aac207867a6c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<X =   \>\"", ",", "Xbart", ",", "\"\<, that is \>\"", ",", 
    RowBox[{"100", "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Xbart", "/", "Xbar"}], "-", "1"}], ")"}]}], ",", 
    "\"\<% away from target\>\""}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\<Tx =  \>\"", ",", "Ttilder", ",", 
    "\"\< to be compared to the optimum Tx=\>\"", ",", "TXo"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<\[Zeta]10 =  \>\"", ",", 
    RowBox[{
     RowBox[{"\[Zeta]11t", "[", "0", "]"}], "/", "\[Kappa]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<\[Mu](T)=\>\"", ",", 
    RowBox[{"\[Mu]1t", "[", "Ttilde", "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<\[Mu](T)-\[Mu]dtilde =\>\"", ",", 
    RowBox[{
     RowBox[{"\[Mu]1t", "[", "Ttilde", "]"}], "-", "\[Mu]dtilde"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\"\<\[Sigma](T)=\>\"", ",", 
     RowBox[{"\[Sigma]t", "[", "Ttilde", "]"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Yft", "[", "t_", "]"}], "=", 
   RowBox[{"Piecewise", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Y1t", "[", "t", "]"}], ",", 
        RowBox[{"t", "\[LessEqual]", " ", "Ttilde"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Ytilde", ",", 
        RowBox[{"t", ">", "Ttilde"}]}], "}"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Mu]ft", "[", "t_", "]"}], "=", 
   RowBox[{"Piecewise", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[Mu]1t", "[", "t", "]"}], ",", 
        RowBox[{"t", "\[LessEqual]", " ", "Ttilde"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Mu]dtilde", ",", 
        RowBox[{"t", ">", "Ttilde"}]}], "}"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Txt", "=", "Ttilde"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g\[Lambda]t", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Zeta]11t", "[", "t", "]"}], "/", "\[Kappa]"}], ",", 
       RowBox[{"\[Tau]tilde", "/", "\[Kappa]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Txt"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{
       "t", ",", 
        "\"\<\[Lambda](t),\!\(\*OverscriptBox[\(\[Lambda]\), \(~\)]\)(t),\!\(\
\*OverscriptBox[\(\[Tau]\), \(~\)]\)\>\""}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Brown", ",", 
          RowBox[{"Dashing", "[", "Large", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Brown", ",", 
          RowBox[{"Dashing", "[", "Large", "]"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"val\[Lambda]t", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{
        RowBox[{"\[Zeta]11t", "[", "t", "]"}], "/", "\[Kappa]"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Txt", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gyt", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Yft", "[", "t", "]"}], ",", "Ystar", ",", "Y0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigt"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<Y(t)\>\""}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Brown", ",", 
          RowBox[{"Dashing", "[", "Large", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Gray", ",", "Dotted"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Gray", ",", "Dotted"}], "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"valYt", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"Yft", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigt", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g\[Mu]t", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"\[Mu]ft", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigt"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{
       "t", ",", 
        "\"\<\[Mu](t),\!\(\*SubscriptBox[\(\[Mu]\), \(d\)]\)(t)\>\""}], 
       "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "3000"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Brown", ",", 
        RowBox[{"Dashing", "[", "Large", "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"val\[Mu]t", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"\[Mu]ft", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigt", ",", "0.5"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Sigma]LbDt", "[", "t_", "]"}], "=", 
   RowBox[{"\[Beta]", " ", "c1", " ", 
    SuperscriptBox[
     RowBox[{"Yft", "[", "t", "]"}], 
     RowBox[{
      RowBox[{"-", "\[Beta]"}], "-", "1"}]], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Mu]ft", "[", "t", "]"}], "-", 
       RowBox[{"c1", " ", 
        SuperscriptBox[
         RowBox[{"Yft", "[", "t", "]"}], 
         RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"\[Phi]", " ", "c2"}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"val\[Sigma]LbDt", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"\[Sigma]LbDt", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigt", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Sigma]Cvt", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"\[Zeta]11t", "[", "t", "]"}], "-", "\[Tau]tilde"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"val\[Sigma]Cvt", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"\[Sigma]Cvt", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Txt", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g\[Sigma]t", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Sigma]t", "[", "t", "]"}], ",", 
       RowBox[{"\[Sigma]LbDt", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigt"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<\[Sigma](t),\[CapitalSigma](t)\>\""}], "}"}]}], 
     ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Brown", ",", 
          RowBox[{"Dashing", "[", "Large", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Brown", ",", 
          RowBox[{"Dashing", "[", "Small", "]"}]}], "}"}]}], "}"}]}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gxt", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"xt", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Txt"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<x(t)\>\""}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Brown", ",", 
        RowBox[{"Dashing", "[", "Large", "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"valxt", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"xt", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Txt", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"get", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"et", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigt"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<e(t)\>\""}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "8000"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Brown", ",", 
        RowBox[{"Dashing", "[", "Large", "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"valet", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"et", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigt", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gpt", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"\[Gamma]", " ", 
      SuperscriptBox[
       RowBox[{"et", "[", "t", "]"}], 
       RowBox[{
        RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfigt"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<p(t)\>\""}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Brown", ",", 
        RowBox[{"Dashing", "[", "Large", "]"}]}], "}"}]}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "80"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"valpt", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", 
        RowBox[{"\[Gamma]", " ", 
         SuperscriptBox[
          RowBox[{"et", "[", "t", "]"}], 
          RowBox[{
           RowBox[{"-", "1"}], "/", "\[Epsilon]"}]]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "Tfigt", ",", "1"}], "}"}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
  "g\[Lambda]O", ",", "g\[Lambda]s", ",", "g\[Lambda]r", ",", "g\[Lambda]t"}],
   "]"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{"g\[Sigma]s", ",", "g\[Sigma]r", ",", "g\[Sigma]t"}], "]"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{"gyO", ",", "gys", ",", "gyr", ",", "gyt"}], "]"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{"g\[Mu]O", ",", "g\[Mu]s", ",", "g\[Mu]r", ",", "g\[Mu]t"}], 
  "]"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{"gxO", ",", "gxs", ",", "gxr", ",", "gxt"}], "]"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{"geO", ",", "ges", ",", "ger", ",", "get"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"gpO", ",", "gps", ",", "gpr", ",", "gpt"}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.826697519672256*^9, 3.826697580027843*^9}, {
   3.826697652352769*^9, 3.8266977554561663`*^9}, {3.8266978504549828`*^9, 
   3.8266980625810966`*^9}, {3.826698118584816*^9, 3.82669813683633*^9}, {
   3.82671708533427*^9, 3.82671711297655*^9}, {3.826717195616568*^9, 
   3.8267172879058332`*^9}, {3.8267173280925407`*^9, 3.826717333641568*^9}, {
   3.826717522821595*^9, 3.826717570299461*^9}, {3.826717680880262*^9, 
   3.826717744163055*^9}, {3.8267701655635223`*^9, 3.8267701859289627`*^9}, 
   3.8267827128347197`*^9, {3.8267828066452017`*^9, 3.82678282296761*^9}, {
   3.826783014197393*^9, 3.8267830193821793`*^9}, {3.826783053053761*^9, 
   3.8267831904013863`*^9}, {3.826783283921215*^9, 3.826783353695147*^9}, {
   3.826783398939056*^9, 3.826783468595071*^9}, {3.8267839748795967`*^9, 
   3.826784025944957*^9}, {3.826784076268982*^9, 3.826784099613714*^9}, {
   3.826802617136519*^9, 3.8268026181797743`*^9}, {3.826802651897314*^9, 
   3.82680267122538*^9}, {3.826802722431972*^9, 3.826802767546453*^9}, {
   3.826802800603544*^9, 3.826802830739423*^9}, {3.826802862078915*^9, 
   3.8268028915248327`*^9}, {3.8268029217129583`*^9, 3.826802922935287*^9}, {
   3.8325799020902243`*^9, 3.83257991082253*^9}, {3.83258017566625*^9, 
   3.832580177208193*^9}, {3.832580226339326*^9, 3.832580227036541*^9}, {
   3.832580278582456*^9, 3.8325804303569593`*^9}, {3.832580461030594*^9, 
   3.8325804766469593`*^9}, 3.832580591372081*^9, 3.8325816333865843`*^9, {
   3.832581693506543*^9, 3.83258169403688*^9}, {3.832581729792838*^9, 
   3.832581731973393*^9}, 3.8327608773441143`*^9, {3.832760912232373*^9, 
   3.832760957930429*^9}, {3.8327616436011877`*^9, 3.832761674425411*^9}, {
   3.83281481827204*^9, 3.832814824036419*^9}, {3.832814911489626*^9, 
   3.832814912218461*^9}, {3.832815028115548*^9, 3.8328150895946007`*^9}, 
   3.8328152122241592`*^9, 3.83281525241672*^9, {3.832815299537415*^9, 
   3.832815300150611*^9}, {3.8328219508123713`*^9, 3.8328219516773767`*^9}, {
   3.8328220020371017`*^9, 3.832822006343603*^9}, {3.832822042412553*^9, 
   3.832822043304326*^9}, {3.83282212518801*^9, 3.832822126103573*^9}, {
   3.832822167920742*^9, 3.832822179657393*^9}, {3.832822218391253*^9, 
   3.832822219290711*^9}, {3.832822250934577*^9, 3.832822253951581*^9}, 
   3.832822322940024*^9, {3.832822374068527*^9, 3.832822374897048*^9}, {
   3.8328224264429293`*^9, 3.8328224272685833`*^9}, {3.832822459102688*^9, 
   3.832822460137269*^9}, 3.832822508242244*^9, 3.8337133494149017`*^9, {
   3.8337133846093063`*^9, 3.833713386142579*^9}, {3.846168616840665*^9, 
   3.846168896852541*^9}, {3.846168932383956*^9, 3.8461690023694143`*^9}, {
   3.846169089428948*^9, 3.846169180556508*^9}, {3.8461692683686113`*^9, 
   3.846169350350443*^9}, {3.846169380378189*^9, 3.846169450908692*^9}, {
   3.8465644626160965`*^9, 3.8465645791262984`*^9}, {3.8465646186629257`*^9, 
   3.846564633874517*^9}, {3.846564664949559*^9, 3.8465647643150935`*^9}, {
   3.8465648836830063`*^9, 3.846564884603797*^9}, {3.846565181204013*^9, 
   3.8465652339227037`*^9}, {3.8465653002792697`*^9, 3.846565348791662*^9}, {
   3.8465653941292987`*^9, 3.846565534488723*^9}, {3.8465657634089823`*^9, 
   3.846565763831935*^9}, {3.846565817722123*^9, 3.8465658181477704`*^9}, {
   3.846565869733901*^9, 3.8465658796397505`*^9}, {3.846565922079465*^9, 
   3.846565975746462*^9}, {3.8465660412443304`*^9, 3.846566041672748*^9}, {
   3.8465660832935743`*^9, 3.846566083755465*^9}, {3.846566125150813*^9, 
   3.846566125620896*^9}, {3.8465661803508615`*^9, 3.846566181736549*^9}, {
   3.8465662246347404`*^9, 3.8465662250377464`*^9}, {3.8465662715772862`*^9, 
   3.8465662719762306`*^9}, {3.846566316131551*^9, 3.846566316542246*^9}, {
   3.846566369764449*^9, 3.846566371018426*^9}, {3.8465664146601253`*^9, 
   3.846566450868167*^9}, {3.8465664815575085`*^9, 3.846566482546114*^9}, {
   3.846566523558004*^9, 3.846566524219438*^9}, {3.846566564048211*^9, 
   3.8465665645473433`*^9}, {3.846566597287648*^9, 3.846566597731559*^9}, {
   3.846566654310875*^9, 3.8465666547324963`*^9}, {3.8465666960379333`*^9, 
   3.8465666972313366`*^9}, {3.8465667310701065`*^9, 3.846566731508182*^9}, 
   3.846566763357732*^9, {3.8465668273097878`*^9, 3.8465668564927425`*^9}, {
   3.846572142198427*^9, 3.8465721434379787`*^9}, {3.8465721954951954`*^9, 
   3.8465721959316025`*^9}, {3.8465722511116605`*^9, 3.846572251397266*^9}, {
   3.846572297723818*^9, 3.84657229810223*^9}, {3.846572344819878*^9, 
   3.8465723489396024`*^9}, {3.846572402676483*^9, 3.846572403596615*^9}, {
   3.846816887816596*^9, 3.846816907888953*^9}, {3.8468169798589993`*^9, 
   3.846816980656866*^9}, 3.8468170652502584`*^9, {3.8468171278631983`*^9, 
   3.8468171297001514`*^9}, {3.846817162308836*^9, 3.846817162677336*^9}, {
   3.846817199814546*^9, 3.846817205683964*^9}, {3.846817250389989*^9, 
   3.8468172547467213`*^9}, {3.846817317347084*^9, 3.8468173215464487`*^9}, {
   3.8468173560918417`*^9, 3.846817356498454*^9}, {3.84681741982694*^9, 
   3.8468174222333508`*^9}, {3.8468174588604684`*^9, 
   3.8468174654173975`*^9}, {3.846817497173332*^9, 3.846817497572523*^9}, {
   3.846817542156522*^9, 3.846817543737306*^9}, 3.846817613948851*^9, {
   3.846817652835613*^9, 3.8468176532845783`*^9}, {3.846817784883647*^9, 
   3.8468177896046*^9}, {3.8468178294456234`*^9, 3.8468178298116064`*^9}, {
   3.846840592748277*^9, 3.846840593469572*^9}, {3.84684072787004*^9, 
   3.8468407897975545`*^9}, {3.846840885581024*^9, 3.8468410480771875`*^9}, {
   3.846841113928362*^9, 3.846841148926806*^9}, {3.8468411953338594`*^9, 
   3.8468412622909083`*^9}, {3.846845522308096*^9, 3.8468455327493944`*^9}, {
   3.846845631440799*^9, 3.846845633055486*^9}, {3.8468457220817623`*^9, 
   3.846845722511705*^9}, {3.8468457728250885`*^9, 3.8468457732191086`*^9}, {
   3.846845825580093*^9, 3.846845830737089*^9}, {3.846845865993413*^9, 
   3.8468458663714824`*^9}, {3.846845901089572*^9, 3.846845928163545*^9}, 
   3.8468460182097683`*^9, {3.84684605586761*^9, 3.846846056274093*^9}, {
   3.8468460896448784`*^9, 3.8468460900870004`*^9}, {3.8468461218678594`*^9, 
   3.846846122263889*^9}, {3.8468461651820526`*^9, 3.8468461962369614`*^9}, {
   3.8468462277838097`*^9, 3.8468462281858234`*^9}, {3.846846277123144*^9, 
   3.846846277559677*^9}, {3.8468463084458933`*^9, 3.84684630888103*^9}, {
   3.84684634195434*^9, 3.846846342525428*^9}, {3.846846372621909*^9, 
   3.8468463731648135`*^9}, {3.8468464147153444`*^9, 3.846846417137335*^9}, {
   3.8468464492196875`*^9, 3.8468465078554893`*^9}, 3.846846545620405*^9, 
   3.8468465831183376`*^9, {3.847168350628271*^9, 3.847168356873187*^9}, {
   3.847168421581848*^9, 3.84716842325585*^9}, {3.8471684666598234`*^9, 
   3.8471684965488424`*^9}, {3.847168532728888*^9, 3.847168534785991*^9}, {
   3.8471685690342646`*^9, 3.847168569464798*^9}, 3.8471687036475515`*^9, {
   3.847168754402199*^9, 3.84716875478022*^9}, {3.847168795384446*^9, 
   3.8471687967097855`*^9}, {3.8471688552194343`*^9, 3.847168862161374*^9}, 
   3.8471818830135994`*^9, {3.847181954726035*^9, 3.8471819554131203`*^9}, {
   3.8471820020222545`*^9, 3.8471820024534235`*^9}, {3.8471820561555595`*^9, 
   3.847182056837702*^9}, {3.8471822238978186`*^9, 3.847182230085563*^9}, {
   3.84718228831876*^9, 3.847182289354521*^9}, {3.8471823419303937`*^9, 
   3.8471823422775517`*^9}, {3.8471823741229897`*^9, 
   3.8471823753188696`*^9}, {3.847182441142972*^9, 3.8471824480104837`*^9}, {
   3.847182510540641*^9, 3.847182511399679*^9}, {3.847182553783943*^9, 
   3.847182554184085*^9}, {3.8471826230179844`*^9, 3.8471826299118166`*^9}, {
   3.847182676413659*^9, 3.847182676811701*^9}, {3.8471827085581083`*^9, 
   3.847182717800353*^9}, {3.847183277543023*^9, 3.8471833042939157`*^9}, {
   3.847183364775496*^9, 3.847183368420535*^9}, {3.8471857555482073`*^9, 
   3.847185759849716*^9}, {3.8471857988380156`*^9, 3.847185799498404*^9}, {
   3.8471862464220467`*^9, 3.847186247308177*^9}, {3.8471862990537233`*^9, 
   3.8471863005417523`*^9}, {3.847186349199266*^9, 3.8471863537260284`*^9}, {
   3.8471863997277765`*^9, 3.8471864028614235`*^9}, {3.847187199011094*^9, 
   3.847187208704338*^9}, {3.847187358284011*^9, 3.847187360383865*^9}, {
   3.8471878345448847`*^9, 3.8471878374724317`*^9}, {3.8471878934430323`*^9, 
   3.847187901599221*^9}, {3.847187988945199*^9, 3.8471879894877634`*^9}, {
   3.8471880239050446`*^9, 3.847188024367765*^9}, {3.847188066721484*^9, 
   3.8471880671798053`*^9}, {3.847787549012091*^9, 3.847787583563673*^9}, {
   3.8477882007878876`*^9, 3.8477882012808805`*^9}, {3.8477882440789742`*^9, 
   3.8477882444779377`*^9}, {3.8477883297240467`*^9, 3.847788330079031*^9}, {
   3.8477883669558277`*^9, 3.847788369282047*^9}, {3.8477884125800653`*^9, 
   3.8477884129741087`*^9}, 3.8477884774711094`*^9, {3.847788528223155*^9, 
   3.8477885320155935`*^9}, {3.847788576734928*^9, 3.847788577246089*^9}, 
   3.8477886259991083`*^9, {3.847788670326703*^9, 3.8477886728459463`*^9}, {
   3.8477887164351254`*^9, 3.847788716818091*^9}, {3.847788759446004*^9, 
   3.847788760119931*^9}, 3.847789188269428*^9, {3.847789228093193*^9, 
   3.847789228572428*^9}, 3.847789370379602*^9, {3.8477894099547787`*^9, 
   3.847789410397631*^9}, {3.8477974737620935`*^9, 3.8477974775854053`*^9}, {
   3.850108910072337*^9, 3.850108917914495*^9}, {3.850109008579508*^9, 
   3.850109017311672*^9}, 3.850111473800208*^9, 3.850111680344401*^9, {
   3.8501118809059267`*^9, 3.850111892721684*^9}, {3.85011206186167*^9, 
   3.8501120950378227`*^9}, {3.850112139128111*^9, 3.850112269788451*^9}, {
   3.8501163155589952`*^9, 3.850116316402047*^9}, {3.850129569562481*^9, 
   3.8501295932269917`*^9}, {3.850216660119911*^9, 3.850216663939384*^9}, {
   3.85047748350383*^9, 3.8504776528855333`*^9}, {3.8508142138317337`*^9, 
   3.8508142365286417`*^9}, {3.850814282254279*^9, 3.850814300096839*^9}, 
   3.851252346923292*^9, 3.851252920409514*^9, {3.851252951823605*^9, 
   3.851253049038677*^9}, {3.8512533532896338`*^9, 3.851253453160336*^9}, {
   3.8512535603331413`*^9, 3.851253693313496*^9}, {3.851253767894334*^9, 
   3.851253771923325*^9}, {3.8513162113516083`*^9, 3.851316217616888*^9}, {
   3.851316817348814*^9, 3.851316824932487*^9}, {3.8513220745982723`*^9, 
   3.851322075368829*^9}, {3.85132216554597*^9, 3.8513221838328114`*^9}, {
   3.8513226244453583`*^9, 3.851322635528603*^9}, {3.8513294298464727`*^9, 
   3.851329432750839*^9}, {3.8513295624697323`*^9, 3.851329569424185*^9}, {
   3.8513296902602797`*^9, 3.851329693410429*^9}, {3.851336770915695*^9, 
   3.8513367938245363`*^9}, {3.851336835168537*^9, 3.8513368437882957`*^9}, {
   3.851336900632666*^9, 3.851336961001276*^9}, {3.8513372643233*^9, 
   3.851337277407303*^9}, 3.8513373127131147`*^9, {3.8513374432772083`*^9, 
   3.8513374586722803`*^9}, {3.8513405551933413`*^9, 
   3.8513405636987123`*^9}, {3.85390414134077*^9, 3.853904147054872*^9}, {
   3.853904202740898*^9, 3.853904203243739*^9}, {3.8547160792917547`*^9, 
   3.854716097396628*^9}, {3.862224955896648*^9, 3.8622250183732967`*^9}, {
   3.8625390808394117`*^9, 3.862539099936922*^9}, {3.8625580139686527`*^9, 
   3.862558046370932*^9}, {3.8625585268389997`*^9, 3.862558539632792*^9}, {
   3.8625598389998093`*^9, 3.862559844158841*^9}, {3.862560005952993*^9, 
   3.862560011150612*^9}, {3.862560222577655*^9, 3.862560225830991*^9}, {
   3.879587175903068*^9, 3.8795871786083527`*^9}, {3.8795875082946243`*^9, 
   3.879587510834736*^9}, {3.883640050058498*^9, 3.8836401677121367`*^9}, 
   3.884968574663763*^9, {3.8849708385521526`*^9, 3.88497083955875*^9}, {
   3.8849725188217144`*^9, 3.8849725590149813`*^9}, {3.8872567343166246`*^9, 
   3.8872567536067667`*^9}, {3.8907980234115667`*^9, 
   3.8907980308213663`*^9}, {3.8907980917652597`*^9, 3.890798168280581*^9}, {
   3.89079836859081*^9, 3.8907983895134153`*^9}, {3.8907993665406322`*^9, 
   3.8907993743253117`*^9}, {3.8908095355921164`*^9, 3.890809540595983*^9}, {
   3.890809786348201*^9, 3.890809814402573*^9}, {3.890811670426251*^9, 
   3.890811831269071*^9}, {3.890811968992453*^9, 3.890811991484662*^9}, {
   3.890883536307926*^9, 3.89088353704325*^9}, {3.890886245680045*^9, 
   3.8908862713317833`*^9}, {3.890886412708787*^9, 3.8908864161179113`*^9}, {
   3.89626845468174*^9, 3.896268487974518*^9}, {3.896268531794999*^9, 
   3.896268534001748*^9}, {3.896323591529532*^9, 3.896323663512005*^9}, {
   3.896324042162754*^9, 3.896324112426758*^9}, {3.90990674054119*^9, 
   3.909906746421163*^9}, {3.912095814505205*^9, 3.912095912516717*^9}, {
   3.912095943336593*^9, 3.912095955422207*^9}, {3.9120960017899833`*^9, 
   3.9120960788236837`*^9}, {3.912096134664839*^9, 3.9120962095789714`*^9}, {
   3.912099371673492*^9, 3.9120993820851355`*^9}, {3.912099429159627*^9, 
   3.91209943395557*^9}, {3.912100290989586*^9, 3.912100345210994*^9}, 
   3.912100398640534*^9, {3.9121004677661533`*^9, 3.9121004916362762`*^9}, 
   3.914670088668993*^9, {3.914907690467978*^9, 3.9149076917412577`*^9}, {
   3.914920586399075*^9, 3.9149205871675367`*^9}, {3.920890110218184*^9, 
   3.92089011056039*^9}, 3.939889253614023*^9, {3.9430085300553713`*^9, 
   3.9430085306896963`*^9}, {3.9430721554121313`*^9, 3.943072172835486*^9}, {
   3.943089281349374*^9, 3.943089303025477*^9}, {3.9430901027219887`*^9, 
   3.943090103977644*^9}, {3.943106784848483*^9, 3.9431069863284283`*^9}, {
   3.9431087597746153`*^9, 3.943108761348794*^9}, {3.9431088694222116`*^9, 
   3.943108891578644*^9}, {3.9431090829019003`*^9, 3.943109084187296*^9}, {
   3.943109754776269*^9, 3.943109755668625*^9}, {3.943172167031334*^9, 
   3.943172167764433*^9}, {3.9431722069634333`*^9, 3.943172218304655*^9}, {
   3.94332679978128*^9, 3.943326832202771*^9}, {3.943326881853902*^9, 
   3.9433268938746157`*^9}, {3.943328492600046*^9, 3.9433285122774687`*^9}, {
   3.943329362378881*^9, 3.943329415839119*^9}, {3.9608829202084093`*^9, 
   3.9608829202335615`*^9}, {3.9610824507019563`*^9, 3.961082484455457*^9}, {
   3.9610827562939568`*^9, 3.961082791271495*^9}, {3.961083454222867*^9, 
   3.9610834688251095`*^9}, {3.9610835388884525`*^9, 
   3.9610835460785217`*^9}, {3.9610839165606766`*^9, 3.961083934545385*^9}, {
   3.9610843045282297`*^9, 3.961084316456764*^9}, 3.9610870135574555`*^9, 
   3.9610877615178137`*^9, {3.9610879951181726`*^9, 3.9610880182525663`*^9}},
 CellLabel->
  "In[261]:=",ExpressionUUID->"7266e9c1-ad1b-4fec-a973-da08156f2174"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"subt", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"\[Sigma]t", "[", "t", "]"}], " ", "\[Phi]", " ", 
    RowBox[{"Yft", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"taxt", "[", "t_", "]"}], "=", 
    RowBox[{"\[Tau]tilde", "  ", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"xt", "[", "t", "]"}], ",", 
          RowBox[{"t", "\[LessEqual]", " ", "Ttilde"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"t", ">", "Ttilde"}]}], "}"}]}], "}"}], "]"}]}]}], ";"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"glst", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"taxt", "[", "t", "]"}], "-", 
      RowBox[{"subt", "[", "t", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Tfig"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<lump sum transfer\>\""}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Show", "[", 
   RowBox[{"glst", ",", "glsr", ",", "glss"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"budgt", "=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"taxt", "[", "t", "]"}], "-", 
        RowBox[{"subt", "[", "t", "]"}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Ttilde"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"evalt", "=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], " ", "\[Gamma]", " ", 
      SuperscriptBox[
       RowBox[{"et", "[", "t", "]"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "\[Epsilon]"}]}], ")"}]]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "Ttilde"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\<Cost of acceptability in terms of public finance: budg/eval = \>\"", 
    ",", 
    RowBox[{
     RowBox[{"-", " ", "budgt"}], "/", "evalt"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"budgsurevalafter", "=", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{"\[Sigma]tilde", "/", 
       RowBox[{"(", 
        RowBox[{"\[Gamma]", " ", "\[Phi]"}], ")"}]}], ")"}]}], " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Phi]", " ", "Ytilde"}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"1", "/", "\[Epsilon]"}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\<Additional cost of acceptability in terms of public finance: \
budgsurevalafter = \>\"", ",", 
    RowBox[{"-", " ", "budgsurevalafter"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Invt", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Mu]ft", "[", "t", "]"}], "-", 
      RowBox[{"c1", " ", 
       SuperscriptBox[
        RowBox[{"Yft", "[", "t", "]"}], 
        RowBox[{"-", "\[Beta]"}]]}]}], ")"}], "/", "c2"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Wt", "=", 
   RowBox[{
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"\[Gamma]", " ", 
           SuperscriptBox[
            RowBox[{"et", "[", "t", "]"}], 
            RowBox[{"1", "-", 
             RowBox[{"1", "/", "\[Epsilon]"}]}]]}], 
          RowBox[{"1", "-", 
           RowBox[{"1", "/", "\[Epsilon]"}]}]], "-", 
         RowBox[{"c1", " ", 
          SuperscriptBox[
           RowBox[{"Yft", "[", "t", "]"}], 
           RowBox[{"-", "\[Beta]"}]], "  ", 
          RowBox[{"Invt", "[", "t", "]"}]}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"c2", "/", "2"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"Invt", "[", "t", "]"}], "2"]}]}], ")"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "Tfig"}], "}"}]}], "]"}], "-", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], " ", "cx", " ", 
       RowBox[{"xt", "[", "t", "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "Ttilde"}], "}"}]}], "]"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"\[Gamma]", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Phi]", " ", "Ytilde"}], ")"}], 
          RowBox[{"1", "-", 
           RowBox[{"1", "/", "\[Epsilon]"}]}]]}], 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "\[Epsilon]"}]}]], "-", 
       RowBox[{"c1", " ", "\[Delta]", " ", 
        SuperscriptBox["Ytilde", 
         RowBox[{"1", "-", "\[Beta]"}]]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c2", "/", "2"}], ")"}], " ", 
        SuperscriptBox["\[Delta]", "2"], "  ", 
        SuperscriptBox["Ytilde", "2"]}]}], ")"}], "  ", 
     FractionBox[
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "\[Rho]"}], " ", 
        RowBox[{"(", "Tfig", ")"}]}], "]"}], "\[Rho]"]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Wte", "=", 
   RowBox[{
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "\[Rho]"}], " ", "t"}], "]"}], " ", 
       FractionBox[
        RowBox[{"\[Gamma]", " ", 
         SuperscriptBox[
          RowBox[{"et", "[", "t", "]"}], 
          RowBox[{"1", "-", 
           RowBox[{"1", "/", "\[Epsilon]"}]}]]}], 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "\[Epsilon]"}]}]]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "Tfig"}], "}"}]}], "]"}], "+", 
    RowBox[{
     RowBox[{"(", 
      FractionBox[
       RowBox[{"\[Gamma]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Phi]", " ", "Ytilde"}], ")"}], 
         RowBox[{"1", "-", 
          RowBox[{"1", "/", "\[Epsilon]"}]}]]}], 
       RowBox[{"1", "-", 
        RowBox[{"1", "/", "\[Epsilon]"}]}]], ")"}], "  ", 
     FractionBox[
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "\[Rho]"}], " ", 
        RowBox[{"(", "Tfig", ")"}]}], "]"}], "\[Rho]"]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cct", "=", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        FractionBox[
         RowBox[{"WO", "-", "Wt"}], "Wte"]}], ")"}], 
      FractionBox["1", 
       RowBox[{"1", "-", 
        FractionBox["1", "\[Epsilon]"]}]]], "-", "1"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<Welfare cost of acceptability: cct = \>\"", ",", " ", "cct"}], "]"}],
    ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.826771975154039*^9, 3.826772015151587*^9}, {
   3.832580049557805*^9, 3.832580065595121*^9}, {3.832580849017107*^9, 
   3.832580875207255*^9}, {3.832581608806727*^9, 3.832581611244207*^9}, {
   3.832587345148134*^9, 3.832587355543338*^9}, {3.8325874508288593`*^9, 
   3.832587458816164*^9}, {3.8325875219550734`*^9, 3.832587525388681*^9}, {
   3.832759636299856*^9, 3.832759827596208*^9}, {3.832759881697723*^9, 
   3.832759886569482*^9}, {3.832760995055678*^9, 3.832761085288685*^9}, {
   3.832815174606763*^9, 3.832815177053817*^9}, {3.8471870657000523`*^9, 
   3.84718708498633*^9}, {3.847188260601553*^9, 3.8471882693709984`*^9}, {
   3.847189938039563*^9, 3.847189985360891*^9}, {3.847787820846651*^9, 
   3.847787943071788*^9}, {3.8477892713404894`*^9, 3.8477892727785206`*^9}, {
   3.847789329166561*^9, 3.8477893296935635`*^9}, 3.847797461488059*^9, {
   3.849864633493187*^9, 3.849864670100956*^9}, {3.8498650500151587`*^9, 
   3.849865069175974*^9}, {3.850037602022036*^9, 3.850037675636114*^9}, {
   3.85011227481717*^9, 3.85011238221472*^9}, {3.850112457289551*^9, 
   3.850112482272141*^9}, {3.850133123461679*^9, 3.850133185571981*^9}, {
   3.850216693250845*^9, 3.850216699513904*^9}, {3.8504776582041893`*^9, 
   3.8504777725874767`*^9}, {3.8513162320764427`*^9, 3.851316237119521*^9}, {
   3.8513168266484756`*^9, 3.85131682970995*^9}, {3.851329976620553*^9, 
   3.851329981100647*^9}, {3.851752932632669*^9, 3.85175293572583*^9}, {
   3.862225066620363*^9, 3.8622250758426027`*^9}, {3.862539178249556*^9, 
   3.862539247676806*^9}, {3.862540281624854*^9, 3.8625402828395653`*^9}, {
   3.8625403926840553`*^9, 3.8625403978252907`*^9}, {3.862540432460064*^9, 
   3.862540461497669*^9}, {3.862541361850183*^9, 3.8625413699852858`*^9}, {
   3.862559280471787*^9, 3.8625592810707808`*^9}, {3.8632600134564843`*^9, 
   3.863260057636457*^9}, {3.863260195665668*^9, 3.863260204244933*^9}, {
   3.863260278304779*^9, 3.8632602796306086`*^9}, {3.8632603170781555`*^9, 
   3.8632603650058937`*^9}, {3.8632606545635023`*^9, 3.863260656977724*^9}, {
   3.8632607802208357`*^9, 3.863260814939663*^9}, 3.8632609102532077`*^9, {
   3.863331123812949*^9, 3.863331145666418*^9}, {3.8795873753651752`*^9, 
   3.879587377460905*^9}, {3.890797185511579*^9, 3.890797188087298*^9}, {
   3.896270326067038*^9, 3.8962703585490417`*^9}, {3.896323694780611*^9, 
   3.89632370039642*^9}, {3.896325285369196*^9, 3.8963252996491823`*^9}, {
   3.8963253343062973`*^9, 3.896325337355773*^9}, {3.896325401551725*^9, 
   3.896325409154748*^9}, {3.896328775530772*^9, 3.8963288581707783`*^9}, {
   3.896335568458076*^9, 3.896335637747891*^9}, {3.896335769961247*^9, 
   3.896335814745627*^9}, {3.896339340154295*^9, 3.896339349306712*^9}, 
   3.8963425017892427`*^9, {3.896343458949299*^9, 3.896343490466256*^9}, {
   3.920889338758395*^9, 3.9208894477262363`*^9}, {3.961082942221755*^9, 
   3.9610829793407173`*^9}, {3.9610830697320147`*^9, 3.961083086457863*^9}, {
   3.9610831287806935`*^9, 3.961083191259964*^9}, 3.961087816601676*^9, {
   3.961088012251458*^9, 3.961088012938366*^9}},
 CellLabel->
  "In[294]:=",ExpressionUUID->"052ab092-53d0-43e1-bd26-1ae6c99e4032"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{843., 1090.8},
WindowMargins->{{Automatic, 63}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
TaggingRules->{
 "WelcomeScreenSettings" -> {"FEStarting" -> False}, "TryRealOnly" -> False},
Magnification:>1.15 Inherited,
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 19, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"37c4466f-daae-428d-8fda-ad2b9fbcc23e"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 11579, 161, 478, "Subsection",ExpressionUUID->"23ae1bb4-6ebf-4d59-bc94-68cc6ff4dc06"],
Cell[CellGroupData[{
Cell[12162, 185, 9606, 129, 54, "Subsection",ExpressionUUID->"d72800b6-62a1-4993-8038-425c677f86b2"],
Cell[21771, 316, 38845, 527, 68, "Text",ExpressionUUID->"bcd716ee-7554-4a9f-a92b-f23cc0c70c2c"],
Cell[60619, 845, 54291, 973, 2610, "Input",ExpressionUUID->"7f256e76-7bd0-413d-8b41-c27ce15e3dfc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[114947, 1823, 10706, 145, 76, "Section",ExpressionUUID->"18e0dfe1-a896-4549-8754-9e0138eadb35"],
Cell[CellGroupData[{
Cell[125678, 1972, 10662, 144, 52, "Subsubsection",ExpressionUUID->"593deb96-5450-409e-b411-adea7ee9049e"],
Cell[136343, 2118, 62724, 1233, 3499, "Input",ExpressionUUID->"a9f04c3a-14d2-4311-a021-e2a01f101a9c"],
Cell[199070, 3353, 7469, 204, 863, "Input",ExpressionUUID->"a9a25957-c374-4d43-99df-20efc1a74631"],
Cell[206542, 3559, 194, 3, 44, "Text",ExpressionUUID->"feaf748e-d53d-48ac-a428-29e615e4a0b9"],
Cell[206739, 3564, 4783, 126, 412, "Input",ExpressionUUID->"278d9f7c-d3fd-4d7c-86ae-dcac6f0678ed"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[211571, 3696, 942, 14, 69, "Chapter",ExpressionUUID->"a8bd9d8e-6e5a-47e1-a1b9-f83df0ef41bd"],
Cell[212516, 3712, 31918, 473, 906, "Input",ExpressionUUID->"6f3df416-2c23-4195-bea0-5b9577f3cafa"],
Cell[244437, 4187, 9518, 129, 41, "Input",ExpressionUUID->"4b28cf3f-6f88-4a4c-a306-512aa0abbdc5"],
Cell[253958, 4318, 56099, 1210, 4604, "Input",ExpressionUUID->"34500c77-b554-4907-9ade-6ddd38036d11"],
Cell[CellGroupData[{
Cell[310082, 5532, 9597, 129, 50, "Subsubsection",ExpressionUUID->"5e82fa54-7545-4535-ab2e-76ca3d293de0"],
Cell[319682, 5663, 25790, 550, 1915, "Input",ExpressionUUID->"3fff458c-5709-4586-a664-6554ec351355"],
Cell[345475, 6215, 10121, 253, 759, "Input",ExpressionUUID->"9653215e-ed38-4e06-91bf-2ed7a83a714a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[355645, 6474, 992, 14, 69, "Chapter",ExpressionUUID->"ad214ad1-2864-4aa6-8a8b-34005a022a8d"],
Cell[356640, 6490, 34540, 518, 988, "Input",ExpressionUUID->"cdabc506-91e7-4490-bd04-c2e64157084d"],
Cell[CellGroupData[{
Cell[391205, 7012, 9717, 132, 50, "Subsubsection",ExpressionUUID->"f4b6e96d-f4ef-413f-a74d-f4dd88d72d43"],
Cell[400925, 7146, 53279, 1131, 4329, "Input",ExpressionUUID->"fa574f5a-4ce5-43cc-8993-9339cde4b070"]
}, Open  ]],
Cell[CellGroupData[{
Cell[454241, 8282, 1279, 18, 50, "Subsubsection",ExpressionUUID->"efc6cc77-3582-4d75-8fd8-ec87e7352bb1"],
Cell[455523, 8302, 18491, 460, 2011, "Input",ExpressionUUID->"19e89736-0534-4274-a770-874b6ac10b47"],
Cell[474017, 8764, 10426, 271, 816, "Input",ExpressionUUID->"e8ebfbda-4580-4e05-9800-4cf630e3a63c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[484492, 9041, 1039, 15, 69, "Chapter",ExpressionUUID->"ac1bd176-84c7-4314-a36b-e5e479d54ac5"],
Cell[485534, 9058, 32341, 496, 899, "Input",ExpressionUUID->"05474526-f7d8-4a1b-935b-ecae0392745d"],
Cell[CellGroupData[{
Cell[517900, 9558, 9476, 128, 51, "Subsubsection",ExpressionUUID->"464bcaa6-f85f-4848-9d9a-8df5ece2d7f2"],
Cell[527379, 9688, 32048, 620, 1698, "Input",ExpressionUUID->"bbbe8a4b-78a4-482f-8aa4-329c0500b255"]
}, Open  ]],
Cell[CellGroupData[{
Cell[559464, 10313, 9636, 129, 51, "Subsubsection",ExpressionUUID->"6fbe8b13-c9e7-47e3-bc79-aac207867a6c"],
Cell[569103, 10444, 26587, 561, 1791, "Input",ExpressionUUID->"7266e9c1-ad1b-4fec-a973-da08156f2174"],
Cell[595693, 11007, 10737, 281, 930, "Input",ExpressionUUID->"052ab092-53d0-43e1-bd26-1ae6c99e4032"]
}, Open  ]]
}, Open  ]]
}
]
*)

